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EDITORIAL 


Puisque l'actualité est plutôt calme ce mois ci (en attendant la conférence 
d'Amsterdam), revenons sur le précédent JPC. Nous avons le regret de vous 
annoncer que nous avons publié deux informations totalement erronées. El le 
pire c’est que cela était intentionnel ! Les anciens adhérents auront reconnus ici 
une mauvaise habitude revenant tous les ans, aux environs du mois d’avril... Que 
les nouveaux adhérents nous en excusent ! Si certains autres ne s’y sont pas laissé 
prendre, qu’ils ne s’inquièttent pas, nous essaieront de faire mieux l’année 
prochaine ! Cependant, ces deux plaisanteries sont basées sur deux informations 
réelles entendues quelques jours auparavant. Tout d’abord, si il n’est pas possible 
(à notre connaissance !) de tripler la vitesse de la HP48, il serait possible de le 
faire pour le HP100 ! Cependant, cette modification du quartz causerait quelques 
problèmes de compatibilité avec certains autres circuits (Rom, 1/O...). Quelques 
personnes travaillent actuellement sur le sujet. Quant au disque dur externe au 
format PCMCIA, il n’en existe toujours pas à notre connaissance, et surtout pas 
à 1500F. Par contre il existerait un lecteur de disquette pouvant se brancher sur 
un port PCMCIA. Nous n’avons pas encore pu avoir des renseignements fiables 
sur ces deux informations, mais nous vous tiendrons bien sûr au courant. 


A part ça, vous trouverez dans ce numéro la suite de notre travail concernant nos 
récupérations de programmes pour les HP48 et les palmtops. Il nous reste 
encore quelques programmes à distribuer, mais il vous faudra probablement 
patienter quelques mois pour ayons suffisement de matériel pour remplir des 
nouvelles disquettes. 


En attendant, Bonne lecture ! 
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ALLEGEMENTS EN DOUCEUR 


A Poccasion de la publication par Jean-François 
Garnier d’une liste de points d’entrée pour HP28S 
(PC 87 et 88) notre ami nous donnait quelques 
exemples simples d’utilisation de ces points d’entrée 
par SYSEVAL interposé donc en User Rpl. Ce procédé 
qui permet d’étendre les possibilités de la machine 
tout en restant simple de réalisation a l’inconvénient 
de consommer des octets car un entier binaire 
courant se code sur 26 quartets soit 13 octets contre 5 
quartets donc 2,5 octets en System Rpl pour appeler 
l'objet correspondant au point d’entrée. Pour des 
HP28S cette perte de 10,5 octets n’est pas toujours à 
négliger. D’autre part si un programme en User Rpl 
débute par un SYSEVAL cela peut-être dangereux à 
l'usage car il n’y aura pas de vérification du nombre et 
du type des arguments comme Jean-François nous le 
rappelait. 


Je vous propose donc d’abord de traduire en System 
Rpl les petits programmes exemples de Jean-François 
constituant le début d’une boite à outils. 


Boite à outils légers 


Pour la syntaxe veuillez revoir l’article cité du JPC 87. 


SYSRCL 43.5 octets 
« # 71BDh SYSEVAL # 4152h SYSEVAL DROP » 


en System Rpl:15 octets cksum # AFC2h 
CKINOLASTHD Dispatchi ELEVEN SECONDELCOMP ; 


FRE 46 octets 
« # 4BC1h SYSEVAL # C610h SYSEVAL 2 / » 


en System Rpl: 15 octets cksum # 7B76h 
:2 MEM UNCOERCE %2 %/ ; 


CRNAME 25,5 octets 
«CH 44EDR SYSEVAL » 


en System Rpl: 15 octets cksum # 6631h 
12 CKINOLASTUD Dispatch1 THREE $>ID ; 


B-SB 25.5 octets 
« # 44EDh SYSEVAL » 


en System Rpl: 15 octets cksum # 31A2h 
12 CKINOLASTWD Dispatch1 ELEVEN HXS># ; 


SB-B 28 octets 
« # C610h SYSEVAL R-B » 


en System Rpl : 12.5 octets cksum # 858h 
:: CKINOLASTUD UNCOERCE %# ; 


Attention : il n’y que la vérification d’un niveau et non 
du type d’argument. Il ne semble pas y avoir de 
solution en System Rpl HP28 pour la vérification d’un 
argument de type entier système. 


COM- 41 octets 
« # 3F41h SYSEVAL # C610h SYSEVAL » 


en System Rpl: 12,5 octets cksum # BDEIh 


1: CKINOLASTWD INNERCOMP UNCOERCE ; 


Attention à donner en argument un objet composé 
car il n'y a que la vérification de la présence d’un 
objet. Il faudrait tester avec les différents types 
d'objets composés pour faire une vérification 
complète. 


-PRG 41 octets 
« # C53Bh SYSEVAL # 3EEBh SYSEVAL » 


en System Rpl: 40 octets  cksum # 2158h 
22 CKINOLASTWD Dispatch1i ONE 
XDEPTH OVER %> 
ITE :: COERCE ::N ; 
ERRTOOFeuArg 


Si le gain d’octets est négligeable l’avantage de ce 
programme en System Rpl est qu’il vérifie à la fois, la 
nature de largument du niveau 1 : un réel, et le 
nombre d’objets qui doivent être au-dessus. 


PARSE 41 octets 
« # E4F7h SYSEVAL # C9F4h SYSEVAL » 


en System Rpl: 22.5 octets cksum # F13Fh 
KINOLASTWD Dispatchi THREE 


palparse COERCEFLAG 














On voit qu’en général les programmes sont moins 
octivores tout en étant plus sécurisants. 


Voici deux outils supplémentaires : 
R-SB 
Convertit un réel en entier système. 


15 octets  cksum # 31A2h 
:: CKINOLASTHD Dispatchi ONE COERCE ; 


SB-R 


Fonction inverse qui convertit un entier système en 
réel. 


10 octets  cksum # F8CBh 
12 CKINOLASTHD UNCOERCE ; 


Attention: même remarque que ci-dessus pour S8-8. 


Dans un prochain article nous verrons quelques 
exemples d’utilisation de ces outils. 


Allègements en douceur 


On a vu par les mini-programmes ci-dessus qu’il est 
aventageux de remplacer dans un programme les 
couples ’entier binaire SYSEVAL’ par l’objet en Rom 
qu’ils représentent. Or pour cela il faut compiler des 
fichiers sources ce qui n’intéressera peut-être pas tout 
le monde. Par contre ce qui est à la portée d’un plus 
grand nombre c’est de faire un programme en User 
Rpl avec ces ces couples ’entier binaire SYSEVAL’ et 
d'utiliser un programme compilant ces couples. Ceci 
permettrait de faire un mixage User Rpl et System 
Rpl ayant l'avantage de la simplicité du User Rpl tout 
en augmentant les possibilités de programmation sans 
gachis d’octets avec les entiers binaires. D’autre part 
cela peut apporter un gain de vitesse, ce qui est 
encore un plus. Voici donc le programme de 
compilation. Il supprime aussi les *« de début et les 
» de fin de programme, faisant encore gagner 5 
octets. 


COMPIL28 
148.5 octets cksum # 9FC9Ih 


CKINOLASTUD Dispatch1 EIGHT 


TOTEMPOB 
CODE 
gosbvl =SAVPTR 
c=dat1 a 


rû=c 

d0=c 

gosbvl =SKIPOB 
a=r0 

di=a 

cd0ex 





st=0 0 
Le(5) 
?afc a 
goyes 
st=1 0 


=x<< 


no<< 


no<< 





out 
ok # 
11 


a54c 





1 
7a#0 p 
nxtnib 


Loop 


a=dat1 w 
?a#c 
nxtnib 
di=di- 5 
a=dat1 a 


d=d-con a,16 
gone 


Loop 
test>> 


nxtnib 1 


decr 





gonc 
test>> ?st=0 0 
goyes 
d0=d0- 5 
a=dati a 
datO=a a 
d0=d0+ 5 
a=r0 
di=a 
di=di+ 


no>> 


u 


* 


Mon 


* 


* 


sauve adr. obj 
objet suivant 


restaure di obj 

adr obj suivant 

Len obj 

Len-prolog et marqueur fin 
compteur 

pour recopie 

saute prologue 

dito 

5 quartets suivant prolog. 
pour x<< 

code de <<’ 

pas de ‘<<! ? 


* présence de x<< 


* pour - x<< et x> 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


saute x<< 
actualise compteur 


govlng =GETPTRLOOP * sortie sans rien faire 


c(w) := 0A45C00000000000 
quartet courant 

si Le quartet © 0 alors 
suivant 

sinon prend 16 quartets 
<> 0A45C00000000000 ? 
oui alors quartet suiv. 
non alors on remplace 
l'entier binaire et Le 
syseval par L'adresse 
correspondante et 

on saute cette adresse 
on avance après 


* Le syseval 


MO x * 


* 


* 


* 


actualisation compteur 


saut pour test si !>>! 
charge Le quartet 

avance d'un quartet 

dito 

actualise compteur quartets 
pas de ’>»>! 7 

alors avance normale 


si non on recule pour saut 


chargement de SEMI 


* après SEMI 


* 


* 


adresse début programme 
a ; £ 

à qui va être La Longueur 
de La chaîne fictive 








JPC 96 Page 5 — 





c=dati a * 5 quartets à sauver 
r2=c * sauve 5 nibs après prolog. 
cdiex 
rise * adresse longueur 
goving =Shrink$ * élimine Les nibs inutiles 
ENDCODE 
CODE 
a=r1 * on récupère L'adresse des 
adiex * 5 quartets de données 
c=r2 * on récupère Les 5 quartets 
dati=c a * remise en place 
di=a * restaure D1 
goving =Loop * retour au Rpl 
ENDCODE 


Exemple d’utilisation : 
Soit le programme sysReL ci-dessus en User Rpl mis 


au niveau 1. CHP28 renverra : 


System Objet 
System Object DUP 


Soit un syskCL en System Rpl de 12.5 octets contre 
43.5 octets pour l'original en User Rpl et également 


sans vérification d’arguments. 


Trois adresses nouvelles par rapport aux listes parues 
dans JPC et utilisées dans les programmes ci-dessus : 


SECONDELCOMP _# 20238h (pas d’quivalent HP48) 
C’est l'équivalent de TWO NTHELCOMP DROP 


ERRTooFewArg # 0C526h (pas d’équivalent HP48 en 
System Rpl) 


Shrink$ # 1E97A appelable par un Goving 

en entrée: RO contient l’adresse de l’objet 
R1 contient l'adresse de la longueur 
de l’objet 
DO @ après la fin des données 

en sortie: RO R1 inchangés 


Les codes des programmes se trouveront dans le coin 
des codes. 


Guy Toublanc (276) 
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POUR VOS MENUS 


Il est parfois utile d’avoir à sa disposition des 
caractères existants mais non accessibles directement 
au clavier pour créer des noms de variables évitant les 
conflits entre programmes, où même pour réaliser 
des messages très personnalisés. Pour cela on peut 
recourir à la fonction CHR, mais cela oblige à se référer 
au manuel. Une autre solution est d’avoir un 
programme qui crée un menu avec pour labels 
quelques uns de ces caractères spéciaux. C’est ce que 
fait le programme MNU qui utilise les caractères : 


134 33 36 38 124 58 59 140 95 126 64 92 27 
Ce qui vous donnera par exemple des ! $ & etc. 


Ce programme est en System Rpl pour économiser 
des octets. Son listing a l'aspect de ceux pour HP48 
car utilisant le même compilateur HP que celui pour 
HP48. D’autre part tous ces mnémoniques avec les 
adresses correspondantes ont été publiés par Jean 
François Garnier dans les JPC 87 et 88. Dans le n° 87 
on trouve le programme CRNAME permettant de créer 
n'importe quel nom à partir d’une chaîne. 


Voici ce programme. On remarquera la chaîne 
"$ "\86\21..." pour les caractères avec leur valeur 
ASCII en hexadécimal. 





MNU 
Cksum: # B6BBh 55.5 octets 
1: $ M\86\21\24\26\7c\3a\3b\8c\5f\7e\40\5c\1b" 
THIRTEEN 
#1+_ONE_DO (DO) 
DUP INDEXA DUP SUBS$ $>ID SHAP 
LOOP 
DROP THIRTEEN €3N XMENU 


Voir la liste des codes dans le coin des codes. 
Mode d’emploi 


Pour obtenir le menu il suffit d'activer MNU. Après 
passage dans un autre menu, il suffira d’activer la 
touche CUSTOM pour revenir à ce menu particulier. 
Vous pourrez introduire dans une chaîne les 
caractères spéciaux des labels du menu ou obtenir des 
noms très particuliers pour vos variables. 


Si vous vouliez étendre la liste des caractères, il est 
toujours possible que je vous refasse le programme au 
cas où cela vous serait impossible de le faire 
vous-même. 


Guy Toublanc (276) 
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LES DISQUETTES 4 ET 5 
POUR HP48 


La disquette 4 : Goodies Disk 9, HPS et Divers 


Le mois dernier, je vous présentais la nouvelle 
disquette pour HP48. Maintenant que j'ai eu le temps 
d'explorer plus complètement les fichiers récupérés 
sur CompuServe, voici quelques détails 
supplémentaires sur certaines applications relevées : 


- 48IR : Infos sur codes IR de telécommandes TV et 
magnétoscopes. 

- ASTRO : Calcul de positions astronomiques. 

- c&src : Source de l’interpréteur Chip-8. 

- CYNoRY : Outil de dessin sur 48. 

-DISP48 : Interessant à titre d'exemple de source 
system Rpl. 

- DISPLS : Affichage de listes (simulation carte Eq.Lib) 
en user Rpl. 

- GREYSC : images en niveaux de gris. 

- ICHING : Divinations chinoises, en system Rpl avec 
sources. 

- KERFIX : Amélioration de la commande xREcV de la 
HP48GX. 

- MATHLB : Belle librairie mathématique. 

- MEMSCN : Editeur de mémoire pour GX. 

- SRTSCH : Collection "scratch" de petits utilitaires en 
user Rpl. 

- STOFIX : Parade au bug de la commande so sur la 
GX. 

- SWHALT : Gestion de points d’arrêt (HALT), pour GX 
semble-t-il. 

- TET48 : Tetris 1.502 de Detlef Mueller, avec sources 
system Rpl. 

- IR : Echantillonneur de commandes Infra-Rouge. 

- LAPLACE : Calculs sur transformées de Laplace. 

- MISP : Source asm d’un remplaçant de D1sp. 

- PROOT : La fonction PROOT du 71 pour la 48 (écrit par 
Bill Wickes). 

- TILT : Source system Rpl d’un économiseur d’écran 
(D. Mucller). 





La disquette 5 : Outils pour PC 


Comme le titre l’indique, cette disquette est destinée 
aux utilisateurs de PC. Vous y trouverez : 


- 48PDL Version de démo du Programming 
Development Link de HP. C’est un environnement de 
développement (Rpl utilisateur) déjà ancien (1990) 
qui n’a eu qu’une diffusion réduite. Cette version de 
démo est entièrement fonctionnelle, seules quelques 
fonctions (comme la sauvegarde) sont absentes. 
L’interêt du PDL est l’aide en ligne, équivalent au 
Programmer's Reference Manual (de la SX) non fourni 


avec nos machines, malheureusement, cette version 
en est presque entierement privée. 


- DRAW&S : Programme de création de graphiques pour 
HP48. 

- EMUG8 : Sources C d’un émulateur de 48 pour Station 
Sun (X-Window)… Le portage sur PC est 
probablement difficile (mais pas impossible), sous 
Windows par exemple. Ce source est cependant 
intéressant à étudier (pour connaisseurs). 

- GR2DR : Utilitaires en liaison avec DRAM. 

- GROBHP : Créateur de Grob.. 

- GROBMA : Créateur de Grob sous Windows. Nécessite 
VBRUN200.0LL.. Ne possédant pas ce dernier fichier, je 
n’ai pu tester ce soft. 

- HPCONV : Conversion d’objets HP48 <-> fichiers 
MS-Dos. 

- HPCPI : Pages de code (CPI) pour afficher le jeu de 
caractères HP48 sur IBM-PC. 

- SRIDE : Environnement de développement system 
Rpl. Dans ma description de HPS du mois dernier, 
j'exprimais mon souhait d’un produit analogue pour 
le system Rpl. Et bien c’est fait avec ce System Rpl 
Integrated Development Enviroment. Sa conception est 
très semblable : éditeur multifenetre à la Borland, 
intégration de l'interface à Kermit, mais aussi aux 
différents outils HP : RPLCOMP, SASM, SLOAD. L’aide en 
ligne reprend le document RPLMAN.Doc de HP. Il s’agit 
cependant d’une version dite ’bêta’, et il m’est arrivé 
de constater quelques réaction bizarres, ou même des 
plantages, de sorte que je vous recommande la 
prudence, dans l'attente d’une version définitive de ce 
produit néanmoins très interessant. 

= STR104 Source de lassembleur Star 1.044. 
Beaucoup de développements en assembleur 
outre-atlantique se font avec un jeu de mnémoniques 
différent de celui officiel de HP (NDLR : Celui 
d’Alonzo Garpieri). C’est le cas d’un certain nombre 
de sources ASM venant de Compuserve et d’Internet. 
Cet assembleur écrit par Jan Brittenson vous 
permettra d'utiliser ces développements. Ce source C 
peut être compilé sur différentes machines : Dos 
(Borland et MicroSoft C), Amiga, VMS, Unix. 
L’executable MS-DOS est fourni. 

- VGER7 : Voyager version V1.0-7. Nouvelle version de 
Voyager (explorateur de la Rom 48) présent sur la 
Goodies Disk 2. 

- VsRC7 : Sources C de Voyager. 


Jean-François Garnier (242) 
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TRUCS ASTUCES ET 
PETITS UTILITAIRES 


Je rappelle que cette rubrique est ouverte à tous et 
encore plus à ceux qui n’ont que la possibilité de nous 
transmettre un texte sur papier et non sur disquette, à 
ceux qui ne peuvent pas passer beaucoup de temps 
sur un article. Si votre HP48 ne reste pas 
constamment au fond d’un tiroir ou que vous ne vous 
contentez pas de lutiliser seulement pour les quatre 
opérations arithmétiques alors, vous avez sûrement 
découvert des astuces lors de son utilisation : 


- Raccourcis clavier 

- Mini programmes 

- Equivalences entre HP48s/sx et HP48g/ex au 
niveau de l’accès aux commandes sans passer par les 
menus déroulants des HP48g/ex. 

- etc... 

Ou vous utilisez des astuces et informations qui vous 
ont été communiquées et qui pourraient être aussi 
utiles à d’autres utilisateurs. 


2,80 ou même 2,40 francs sont-ils trop pour en faire 
bénéficier les autres lecteurs de JPC ? 


Alors les anciens (ceux qui ne participent jamais) 
montrez que vous existez encore. Quant aux jeunes 
montrez que vous êtes curieux et à la recherche d’une 
utilisation intelligente de votre machine. 


Aujourd’hui ce sera pour moi deux petits trucs. 


Premier truc 

Vous êtes dans un menu HP et vous voulez connaître 
dans leur intégralité les noms des labels par exemple 
dans le menu MATH les labels : 

- Pour HP48s/sx 

PART PROB HYP MATR VECTR BASE (une seule page) 

sont en réalité: 

PARTS PROB HYP MATRX VECTR BASE 

donc certains ont un affichage tronqué 


- Pour HP48g/ex 


PROB FFT CMPL CONS (pour la 2ième page) 


au lieu de: 


PROB FFT CMPLX CONST 


Vous êtes dans un menu utilisateur avec le même 
problème et en plus les minuscules apparaissent en 
majuscules. 


Pour une visualisation, dans ces deux cas, il faut faire : 
Pour HP48s/sx et comme indiqué dans le manuel : 


REVIEW : shift droit [-] et flèche basse [V] 


mais pour HP48g/ex il faut savoir que c’est : 
shift gauche [-] et fléche basse [V] 


La touche REVIEW de la HP48s/sx étant remplacée par 
la touche VIE : 
shift droit [-1 et flêche basse [V] 


Cette possibilité pour HP48g/gx n’est indiquée dans 
aucun manuel. 


Deuxième truc 


Au clavier et dans un programme on peut entrer dans 
Fenvironnement graphique pour digitaliser les 
coordonnées de points à fournir au programme (par 
exemple dans l’article de Pierre de Sacy sur les 
fractales et dans JPC 95 page 17). 


Cet accès se fera par: 


GRAPH pour HP48s/sx 
PICTURE pour HP48g/ex 


Le problème est que si on tape dans un programme 
crapx sur HP48g/ox la machine saura traduire cela 
par PICTURE donc une compatibilité en amont que l’on 
a pas dans l’autre sens : PICTURE tapé sur une HP48 
série S sera inopérant. 


Une solution compatible hp48 séries S et G est celle 
utilisée par Pierre : 


Remplacer GRAPH ou PICTURE par € } et PVIEU puis lors 
de l'affichage de l'objet graphique faire : 


shift gauche [-] et flèche gauche [=] 
pour entrer dans lenvironnement graphique et 


pouvoir utiliser les possibilités de celui-ci, par 
exemple la digitalisation. 
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ou plus simple que tout le monde tape GRAPH. Les 
programmes auront le même checksum sur HP48S ou 
G. 


C’est tout. Qui fait la suite ? 


Guy Toublanc (276) 





ALLEGEMENTS EN DOUCEUR 


Dans certains cas précis l'usage de SYSEvALs dans un 
programme en User Rpl permet de faire des choses 
impossibles avec ce seul langage. Ce procédé qui 
permet d'étendre les possibilités de la machine tout 
en restant simple de réalisation a l'inconvénient de 
consommer des octets car un entier binaire courant se 
code sur 13 octets et le SYSEVAL occupe encore 2.5 
octets soit au total 15.5 octets contre 2,5 octets en 
System Rpl pour appeler l'objet correspondant au 
point d’entrée. Pour des HP48S ou HP48G donc sans 
extensions mémoire cette perte de 13 octets n’est pas 
toujours à négliger. 


La solution royale pour remédier à cela serait de 
programmer en System Rpl, mais cela pourra rebuter 
certains. Aussi je vous propose un compilateur qui 
remplacera chaque couple ‘entier binaire SYSEVAL’ par 
Padresse de l’objet en Rom. Ceci permettra de faire 
un mixage User Rpl et System Rpl avec l’avantage de 
la simplicité du User Rpl tout en augmentant les 
possibilités de programmation sans gachis d’octets 
avec les entiers binaires. D’autre part cela peut 
apporter un gain de vitesse, ce qui est encore un plus. 
Voici donc le programme de compilation. Il supprime 
aussi le * de début et le » de fin de programme, 
faisant encore gagner 5 octets. 


S'il y a des amateurs d’assembleur pour les HP48 et 
HP28 ils pourront voir quelques différences dans les 
fins de listings causées par les routines Shrink$ qui ne 
débutent pas et ne se terminent pas de la même 
manière (voir la rubrique HP28). 


COMPILA48 
139 octets cksum # 5C33h 
CK1NoBlame CK&DISPATCHO EIGHT 





TOTEMPOB 
CODE 

gosbvl =SAVPTR 

c=dat1 a 

rû=c * sauve adr. obj 

d0=c 

gosbvl =SKIPOB * objet suivant 

a=r0 

di=a * restaure di obj 

cd0ex * adr obj suivant 
* Len obj 
* Len-prolog et marqueur fin 
* compteur 
* pour recopie 

di=di+ 5 * saute prologue 

do=d0+ 5 * dito 

a=dati a * 5 quartets suivant prolog. 

st=0 0 * pour x<< 

le(5) =x<< * code de ‘<<! 

?afc a * pas de <<! ? 


goyes no<< 


sts1 0 * présence de x<< 
d=d-con a,5  * pour - x<< et x>> 
di=di+ 5 # saute x<< 
no<< a * actualise compteur 
ok 
out * sortie sans rien faire 
ok # 
11 
1a52e  * cCw) := 1A52E00000000000 
Loop 1 quartet courant 


P si Le quartet <> 0 alors 


nxtnib * suivant 
sinon prend 16 quartets 
<> 0A45C00000000000 ? 


nxtnib * oui alors quartet suiv. 


RO x 





5 # non alors on remplace 
a # L'entier binaire et Le 
15 # syseval par l'adresse 
a * correspondante e 
# * on saute cette adresse 
16 # on avance après 
# Le syseval 
d=d-con a,16  * actualisation compteur 
gonc Loop 


goc  test>> 
nxtnib datO=a 1 


* saut pour test si />>1 
* charge Le quartet 


a 
S 
1 
ë 
? 
* 


avance d’un quartet 
+1 * dito 
a actualise compteur quartets 





* 


decr d 
gonc Loop 
test>> ?st=0 0 * pas de >>! 7? 














* 





goyes  no>> alors avance normale 

d0=d0- 5 * si non on recule pour saut 
no>> a=dat1 a = 

datO=a a * chargement de SEMI 

d0=d0+ 5 * après SEMI 

a=r0 * adresse début programme 

di=a *a = = 

di=di+ 5 * à qui va être La Longueur 
# * de La chaîne fictive 

ati a * 5 quartets à sauver 

r2=c * sauve 5 nibs après prolog. 

gosbvl =Shrink$ * élimine Les nibs inutiles 

azr1 * on récupère L'adresse des 

di=a * 5 quartets de données 

a=r2 * on récupère Les 5 quartets 


* 


dati=a a 
out govlng =GETPTRLOOP 
ENDCODE 


remise en place 


Exemple d'utilisation: 


Soit le mini programme coM-+ qui éclate un objet 
composé en ses éléments et renvoie aussi le nombre 
de ces éléments. 


coM+ 41 octets 
« # S4AFh SYSEVAL # 18DBFh SYSEVAL » 


External External 
soit un programme de 10 octets. 


De même le programme qui recompose le 
programme éclaté avec au niveau 1 le nombre des 
éléments: 


-PRG 41 octets 
« # 18CEAh SYSEVAL # 5445h SYSEVAL » 


CoMPIL48 réduira égalemnt ce programme en User Rpl 
en un programme de 10 octets. 


Le procédé peut être appliqué à des programmes 
contenant de nombreux SYSEVALs. Ainsi vous pouvez 
tout en programmant en User Rpl avoir impression 
de faire du System Rpl. Dans un prochain article on 
verra comment inclure des vérifications d’arguments 
au début d'un programme avec un SYSEVAL en 
première position car dans ce cas comme avec les 
deux mini-programmes ci-dessus il faut être vigilant 
avant de lancer un programme avec des SYSEVALs. 


Les codes se trouveront dans /e coin des codes. 


Guy Toublanc (276) 


NOUVEAUX POINTS D’ENTREES 


SYSTEM RPL 


En étudiant la dernière version du système de 
développement RPL de Detlef Mueller et Raymond 
Hellstern (voir le volume 9 des Goodies Disks), j'ai 
trouvé de nouveaux points d’entrées supportés 
absents du fichier ENTRIESADD distribué sur la 
disquette kit de développement du club. 


Voici ces points d’entrées (pour SX et GX) : 


=SETMESG EQU #0764E * (primitive) 
=OFFSRRP EQU #O076AE * (primitive) 
=NULLID EQU #15777 * (globname) 
=CRLFS EQU #2E4F0 * (string) 
=280 EQU #32081 * (real) 
=SetDA2bBad EQU #394CF * (primitive) 
=CLrDA2bBad EQU #3940D * (primitive) 
=SetDA3Bad  EQU #394F9 * (primitive) 
=MenuMaker  EQU #407FB * (prog) 
=MenuKey EQU #40828 * (prog) 
Modifier  EQU #4085A * (prog) 
=Dobel im EQU #40DD4 * (prog) 
=DoDel ims EQU #40DF7 * (prog) 
=MenuDefa  EQU #418A6 * (prog) 
=1D_X EQU #4AB1C * (globname) 
=PvarsCX0  EQU #4AB2A * (complex) 
=1D_Y EQU #4AB59 * (globname) 


Notez en particulier les noms globaux 1D_x (°X?) et 
1D_y (°Y”), voir à ce propos l’article de David Fabiani 
dans JPC94. 


Je transmet bien sûr au club les versions à jour de 
ENTRIESADD et ENTRIES.0 (NDLR : Ils sont dès à 
présents inclus dans notre "Kit de développement"). 





Jean-François Garnier (242) 
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ET EN COULEURS ! 


Un petit frère de Mandel 


en virgule flottante. 


ce cas particulier. 


Voici le bébé : 


* MANDELGT 

# 363 octets cksum # EAA7h 

* compatible G et S 

* 

* adaptation et optimisation du programme MANDEL 

* (733 octets JPC 95) de Pierre Silvestre de Sacy 


% par Guy Toublanc Le 20/4/94 
* 


* ou sur HP48 avec ->RPL de D. Mueller (en mettant 
* en majuscules Les mmémoniques de l'’assembleur 


* arguments et notations : 
*_ arguments : 


* niveau 3 : ( Xc,Yc) 1 complexe 
* niveau 2 : ( Px,Py) 1 complexe 
* niveau 1: iter 1 réel 





FRACTALES LEGERES, RAPIDES 


Après les triangles de Sierpinski, les ensembles de 
Mandelbrot ont fait leur apparition dans JPC mais 
cette fois sous la signature de Pierre de Sacy que je 
remercie pour avoir tracé la voie. A priori ce 
problème de graphisme nécessite beaucoup de 
variables qu’il faut sauvegarder entre les calculs ce qui 
rend la programmation en assembleur assez délicate 
pour éviter des temps d’exécution assez longs. Pierre 
a appliqué une méthode de programmation qui 
permet de simplifier le travail avec les pointeurs D1 
et DO. Une méthode qui sera sûrement réutilisée car 
elle est intéressante. Bien que ce problème de 
fractales se traite en général en virgule flottante, 
notre ami a pris la bonne solution de le faire en 
virgule fixe ce qui est très écomique en temps 
d'exécution et en en mémoire par rapport aux calculs 


Malgré cela le programme MANDEL occupe 733 octets et 
ceux qui se sont lancés à taper les codes ont dû 
certainement faire une pause café avant d’arriver à la 
92ième ligne. Je me suis dit qu’on devait bien pouvoir 
éliminer des octets ici et là. Après quelques essais 
voici le résultat: 363 octets et une vitesse deux fois et 
demi plus rapide. Pour arriver à cela j'ai utilisé une 
programmation classique mais en tenant compte de 
Pévolution des calculs. D’autre part je me sers du 
même algorithme que HP pour les multiplications de 
nombres entiers. Je ne fais pas appel aux routines 
PIxoN de HP ce qui est plus simple et plus rapide dans 


ARR 


* 


* 


* 


* 


* 


* 


* 


* fichier source compilable sur PC par RPLCOMP de HP* 


* 


* 


RH RH 


* 


* 


x 


#* Xc,Yc: coordonnées du centre de L'image * 
* Px,Py: pas d'avancement en abscisses et ordonnées* 
* iter : nombres d’itérations de a 
* 2(i#1) = 2(i)"2 +2 * 
* avec Z(i) = ( Xz(i),YzCi) ) (boucle Z) * 
# Z = (Xz,Yz) pour Le point courant * 
* principe de départ: * 
* Xc,Yc,Px,Py sont multipliés par * 
“ 108576 = # 100000h puis convertis en 

= entiers binaires signés pour Les calculs * 
e en virgule fixe : hhh....h , hhhhh * 
* pour ces arguments tous Les calculs se  * 
* feront suivant ce mode « 
“ * 
* Les autres variables : * 
* 

*_Xz0,Yzo cordonnées du er pixel de La 1ère Ligne * 
* xi,Yi coordonnées du ler point de chaque Ligne  * 
* Choucle 1) * 
* Xj abscisse du point courant d’une Ligne # 
% Choucle J) * 
* _Xz,Yz coordonnées du point courant pour Le départ* 
* de L’itération de La boucle Z * 
*  XzCi),Y2Ci) voir ci-dessus * 
* * 
* principe général : * 
“ chaque Ligne est parcourue de gauche à droite * 
x par La boucle J, pour chaque point on faitn * 
= itérations (îter) pour calculer Z(i) avec La * 
% boucle Z, si abs(Z(i) >= 2 : sortie de boucle * 
* sinon après Les n itérations on fait PIXON  * 
* Le balayage (de haut en bas) des 64 Lignes  * 
* effectué par La boucle I * 
* * 


* pour commencer : conversion des données en entiers* 
* binaires stockés dans un entier binaire Long de * 
* 5*16 digits % 


ARR 


CK3&Dispatch # 221 * vérif. des args 





: * objet non évalué 
52 * sous-programme de 
MINUSONE UNCOERCE %1+ %* DUP * conversion des 
XO %< ITE :: YCHS #4 HXS 1 * réels x # 100000h 

0 SAP bit- ; * en entiers 
24 SAP * signés 


AUNROLL XABS %># SWAP C%X  * iter -> hexa 
SPICK EVAL pas Yp -> hexa 
SPICK EVAL &HXS &HXS SWAP C%>% * pas Xp -> hexa 
4PICK EVAL N're 

AROLL EVAL &HXS BHXS # Xe 

SIXTYFOUR BINT_131d MAKEGROB  * affiche grob 
GROB>GDISP ZEROZERO WINDOW#  * blanc 131x64 


RAR IRD HR RER 


* 


* niveau 1 : entier binaire contenant: * 


* iter , Px, Py, Xe, Ye * 
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* soit 5*16 quartets de données * 
ARRETE 


CODE 














gosbvl  =PopASavptr 
di=a * à l'entier binaire 
d0=(5) #01f79 
a=dat0 a 
d0=a 
a=dat0 a 
d0=a * à PICT 
d0=d0+ 16 * saute prolog. Long. dims 
d0=d0+ 4 * et à début données PICT 
c=0 “ 
4 
5 
“ * d(n) # 400000h : Limite 
10 *aiter 
a 
a AiterrT 
rstk=c * sauve iter sur rstk 
di=di+ 12 * à index Lignes 1 
lec2) 63 * 64 -1 Lignes pour Loopx 
dati=c b * index Lignes I 
di=di+ 4 * saute index absc., à Px 
a=dati w tp 
b=a “ 
Loopx a=atb #* pour 65*Px et calcul Xzo 
b 
Loopx 
16 *ap 
30 
b * index boucle y 
# * Yp 
“ 
Loopy “ * pour 32*Py et calcul Yzo 
b 
Loopy 
16 *axc 
“ ke 
CI * Xc - 65*Px 
“ * Xzo début de Ligne 
16 *aïc 
“ # Ye 
16 * à sauvegarde Xz0 
asatb on * Yzo = Ye + 32*Py 
ARR AAA RARE 
* di à Xzo à di- 16 Py à di- 32 Px * 
$ à di- 36 index Lignes (1=63) # 
+ à di- 34 index abscisses (J) + 
*iter sur rstk p=0 rO:=%Xzo ri := Yzo * 
* d(w) := 4 000..h d(b) index pour boucle Z ” 
* d0 à début données du pict » 
* au) := Yi = Yzo © := Xj = Xzo = 
ARR AR 
Loopl  ri=a # Yi 
r0=c * Xj = Xzo 
r2=c * xz(i) 
di=di- 16 *aPy 


di=di- 16 *aPx 

di=di- 2 # & index J abscisses 

Le(2) 130  * (131 - 1) pixels 

dati=c b * index J pixels 

d=0 xs * position pixel dans nib. 

d=drt xs * initialisation 

LoopJ 

CREER SR SR SR ES AS STUNT Tee 

*d1 243 d€xs) = 1 index position dans Le quartet * 

* et pour incrémenter d0 * 

*p=0 J=130 r0 ri r2 r3 actualisés * 

* d0 à début Ligne I * 

ARR 
czrstk 
de  b 
rstk=c 


* index itérations 


Loopz 
AO 


YzCi)*2 2X2ZC1)*YzC) 


* 


* calcul Xz(i)°"2 


* entrée : * 
* das * 
* principe : * 
* si C(2(H)"2 ) >= 4 donc abs(Z(i)) >= 2 : * 
* sortie pour Le pixel suivant de La Ligne * 
+ Sinon PIXON 


RH RH 











r3=a * Yz(i) -> r3(w) 
gosub sqr  * a(w) := Yz(i)"2 
réa # Yz(1)"2 => r4Cw) 
a=r2 * Xz(i) 
gosub sqr  * a(w) := Xz(1)°2 
c=r4 * Yz(i)72 
c=c+a * XZ(1)72 + YzCi)"2 
?d<c “ * Limite dépassée ? 
goyes  nopixon 
ezr4 * YzCH)2 
“ * XZ(1)72 - Yz(i)"2 
* Xz 
# * X2Ci#1) 
* Xz(i+#1) -> r2 aCw) := Xz(i) 
w * 2*xz(i) 
* YzGi) 
mpy  * 2*X2(1)*VZCi) 
* Yz 
“ * YzCi#1) C-> r3) 
nextz b * index iter 
Loopz 
pixon xs * quartet contenant Le pixel 
xs * OR pour noircir Le pixel 
xs * remet en place Le quartet 
nopixon xs * pour position pixel suivant 
idnib * si pas encore position 3 
1 # après bit 0 -> 1 -> 2 -> 
xs * bit 3 on revient à bit 0 
* * et on avance d’un quartet 
idnib c=dati b * index J 
c=c-1 b 
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outJ * on sort de La boucle J 
b * sinon sauve index J 
2 * a Px 
* XCD) 
“ * Px 
“ * XCj#1) = XCj) + Px 
# XCj#1) -> r0 
* Xz(i) = XCj+1) 
SZ SYzCI) > r3) 
2 * à index J 
nextJ LoopJ 
outJ 2 * nib 34 puis Ligne 1 +1 
2 * à index ! 
b * index I 
b 
out  * sortie générale 
b #* sinon sauve index 1 
4 * saute Les 2 index 
16 *aPy 
x Yo) 
“ * Py 
w #YCi#1) = Yi) - Py C->r1/r3) 
16 * à Xz0 
“ * Xzo 
next Loopl * a:= Y(i+1) c:= Xzo di 8 Xz0 
out * enlève iter de La rstk 
govlng =GETPTRLOOP * retour au Rpl 
RIRE 
# produit de 2 nombres < à 2 en valeur absolue * 
* en entrée : a(w) & cu) Les 2 nombres à multiplier* 
#en sortie : a(w) = a*c  c(w) = 0 # 
RAR 
sqr cza “ #* pour Le carré 
my st=0 2 * pour Le signe 
280 s * positif ? 
goyes apos  * oui alors test autre fact. 





w * sinon valeur absolue 
2 * pour négatif 
apos s x positif ? 
mpy0  * oui alors produit 
“ * sinon valeur absolue 
2 * ler facteur négatif ? 
neg * alors produit positif 
2 * sinon produit négatif 
mpy0  * saut pour Le produit 
neg 2 * pour produit positif 
mpy0 w * initialisation produit 
# * a: produit b: muliplicande 
mpy1 * pour bit 0 nul 
esrb * divise par 2 
?sb=0 * bit O0 nul ? 
goyes mpy2  * alors produit inchangé 
a=atb w * sinon produit partiel 
mpy2  b=btb w * multiplicande * 2 
?c#0 “ * reste bits multiplicateur ? 
goyes  mpyl  * oui on itération 
gosbvl =ASRW5 * sinon divise par # 100000h 


2st=0 2 * produit positif 
rtnyes * oui retour 
aa * sinon entier signé 
rtn 
ENDCODE 
GBUFF * rappelle PICT sur La pile 
ï * pour sauvegarde éventuel Le 


On remarquera que j'adopte une méthode différente 
de celle de Pierre pour l'affichage. Mon programme 
permet comme MANDEL d’avoir le 6RoB sur la pile à la 
fin de l'exécution pour sauvegarde éventuelle mais 
aussi de pouvoir réafficher simplement avec PICTURE 
sur HPG/GX ou 6rapx sur S/SX tant que l’on a pas 
modifié le PICT. 


Pour réaliser la vue d'ensemble avec les paramètres 
donnés par Pierre: 


C-0.5, 0) 
€ 0.03 , 0.03 ) 
20 
il faut sur ma HP48GX 149 secondes contre 375 avec 
le programme de Pierre. 


Bébé grandit 


Pierre avait donné une possibilité de modifier son 
programme MANDEL pour produire non pas deux 
ensembles de pixels mais trois ensembles. Mais il faut 
faire la modification et recompiler le fichier source. Il 
est possible de faire autrement pour avoir, sans 
modifier le programme, les deux solutions: il suffit de 
fournir le nombre d’itérations avec : 


- le signe positif pour la solution à deux ensembles 
- le signe négatif pour la solution à trois ensembles 


D'autre part il est un peu rageant, lorsque la figure 
est symétrique verticalement de devoir attendre 
autant de temps pour réaliser la partie basse après la 
partie haute. Le programme ci-dessous calcule tous 
les points de la partie haute puis effectue une 
symétrie qui se fait pratiquement instantanément d’où 
un temps divisé par deux. 





Enfin on peut avoir besoin d'interrompre le 
programme autrement que par un arrêt système ce 
qui fait perdre tout ce qui a été réalisé Mon 
progamme sait détecter l'appui sur la touche IATTN] 
(HP48S/SX) ou cancEL (HP48G/GX) pour 
interrompre le programme en douceur. 





Tous ces plus se soldent évidemment par un surplus 
d’octets, 78.5 exactement. 














Remarque pratique: pour l'interruption insister sur 
l'appui de la touche. 


Dans le listing suivant je ne reproduit que les 
changements par rapport à MANDELGT, vous laissant le 
soin de raccorder les morceaux. 


ÉPCCOSSECEE EEE 


* MAND3CSI 

* 441.5 octets cksun # 622Ch 

# 

* Extension du programme MANDELGT permettant de 
* traiter 2 fois plus rapidement Les ensembles de 
* Mandelbrot Lorsqu'il y a symétrie (Ye = 0) 

* et d'afficher des pixels fonction de La parité 
* du nombre d’itérations avec La possibilité de * 
* stopper Le programme sans arrêt système * 
* 
* 


MO 


x 


Auteur : Guy Toublanc Le 21/4/94 A 


ARR 





* arguments et notations : ù 
* arguments : x 
# niveau 3 : ( Xc,Yc) 1 complexe ” 
* niveau 2 : ( Px,Py) 1 complexe  * 
+ niveau 1 : îter 1 réel ee 
* Xc,Yc: coordonnées du centre de L'image + 
* Px,Py: pas d'avancement en abscisses et ordonnées* 
* iter : nombres d’itérations de & 
F ZCi#1) = 2(i)°2 + 2 < 
* avec 2(i1) = ( XzCi),Yz(i) ) (boucle Z) * 
* Z = (Xz,Yz) pour Le point courant * 
* si îter est négatif un troisième ensemble * 
# de pixels sera affiché # 
* principe de départ: = 
* Îter,Xc,Yc,Px,Py sont multipliés par * 
+ 108576 = # 100000h puis convertis en # 
” entiers binaires signés pour Les calculs * 
” en virgule fixe : hhh....h , hhhhh = 
* pour ces arguments tous Les calculs se  * 
* feront suivant ce mode sauf pour iter  * 
x qui après détermination de son signe  * 
* reprendra sa valeur sans signe * 
* * 
* Les autres variables : ” 
# * 
* principe général : * 
* chaque Ligne est parcourue de gauche à droite * 
* par La boucle J, pour chaque point on faitn * 
x itérations (iter) pour calculer Z(i) avec La * 
* boucle Z : r 
# si abs(Z(i) >= 2 alors sortie de boucle F 
we avec 2 cas pour Le nombre d’itérations k: * 
si k pair alors PIXON # 
* sinon point suivant + 
+ sinon après Les n itérations on fait PIXON * 
x Le balayage (de haut en bas) des 64 Lignes  * 
5 effectué par La boucle 1 ou des 33 Lignes # 
+ hautes jusqu'à L’axe de symétrie si Ye = 0 * 


* 
* intégration dans La boucle principale 1 d’un test 
* d'appui de La touche [ATTN]/[CANCEL] pour sortie 


* de programme sans destruction de PICT 
“ 


Mn nn 


* pour commencer : conversion ....... 
RER 
ck38Dispatch # 221 


MINUSONE UNCOERCE %1+ %* DUP 
X0 %< ITE :: XCHS %># HXS 1 
0 SWAP bit- ; 
24 SUAP 


DUP4UNROLL EVAL CX>% 















4PICK EVAL 

4PICK EVAL &HXS &HXS ROT C#4>% 

4PICK EVAL RARE 

s “ 

& Sir *  dito 
CODE * MANDELGT 
sout<c>in EQU #Oleec * 

gosbvl =PopASavptr  <*###kkkx 
gosbvl_ =Disablelntr 
di=a DE 
do=(5) #01f79 * 
*  dito 
* MANDELGT 
di=di+ 10 * a iter * 
dat cree 
ctrst * pour non symétrie et 
2-0 os * iter positif 
goyes twocolors 
sts1 0 * pour 3 couleurs 
ce * valeur absolue de iter 
tocolors 
gosbvl =CSRWS * vraie valeur de iter 
1 cree 
rstk=c *  dito 
di=di+ 12 * 
le«2) 63 * MANDELGT 
dtiect d ere 
cdlex 
ro=c * sauve à index 1 
cdiex * restaure di et c(a) 
di=dit 4 etes 
a=dati n * 
* dito 
* MANDELGT 
* 
crrteetis 
w *Yc<>07? 


caleYzo * oui alors non symétrie 
1 * pour symétrie verticale 
* ca) := adr. 1 r0 





Xz0 
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cdiex 
rstk=c 
Lec2) 
dati=c 
c=rstk 
di=c 
c=r0 


caleYzo a=atb 
Loopi 


riza 
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ca) := adr. Xzo di a 1 
sauve adr. Xzo 

{n Lignes à balayer) - 1 
index 1 

récupère adr. Xzo 

di à Xzo 


Xz0 
“ eee 


32 
b 


MO 


# vi * 


* 


*  dito 
* 
* MANDELGT 
* 
* Yz(i)72 % 
L eee 
w * Limite non dépassée ? 


goyes cont * oui on continue 
?st=0 0 * non alors 2 couleurs ? 
goyes  nopixon 
c=d b * nombre d'itérations à faire 
?cbit=0 0 * parité paire ? 
goyes  nopixon 
gonc  pixon * non alors PIXON 
cont  e=r4 creer 
aza-c Le 
c=r0 * Xz *  dito 
tie nest * 
* MANDELGT 
* 
nextl  goto  Loopl res 
2sym  ?st=0 1 * non symétrie ? 
goyes out  * oui alors sortie générale 
ad0ex 
d0=a * @ début ligne sous axe 
c=0 a 
le(2) 29 * n-1 Lignes à symétriser 
d=c a * index Lignes 
Le(2) (2*34) * offset pour reculer au 
b=c a * début Ligne au-dessus 
Loopron a=a-b a * Ligne au-dessus 
di=a 2. + 
Le(2) 16 * (m-1) octets par Ligne 
Loopnib 
a=dati b * octet du grob au-dessus axe 
datO=a b * symétrise 8 pixels à La fois 
do=d0+ 2 * 8 pixels ou octet suivant 
di=di+ 2 ” dito 
b * index d'octets - 1 
gonc  Loopanib 
adiex * a := adr. fin Ligne copiée 
d=d-1 a * index de Lignes - 1 
gonc  Looprow 
out c=rstk * enlève iter de La rstk 
gosbvl =Allouintr * autorise Les interrupt. 
govlng =GETPTRLOOP  <t#kk#ex 
PE * 
esse eosssssss s... * dito 





ENDCODE * MANDELGT 
GBUFF # 
55 eee 


Bébé prend des couleurs 


Le progamme MAND3CSI peut générer deux ensembles 
de points et il est possible d’aller au delà mais avec 
l'affichage standard HP48 à deux couleurs il faut y 
renoncer. La solution est d’utiliser la technique des 
nuances de gris, technique employée par certains bien 
avant la sortie des HP48g/gx (et donc de voyage g/gx). 


Le principe est simple. Prenons l’exemple de ce que 
fait le programme MAND&CSI ci-dessous. Celui-ci génère 
3 ensembles de points que nous dénommerons A B C. 
On fera: 

1 -un affichage avec l’ensemble A 

2 -un affichage avec les ensembles A + B 

3 -un affichage avec les ensembles À + B + C 


Ainsi l’ensemble A sera affiché pendant le temps 3*T 
Fensemble B sera affiché pendant le temps 2*T 
lensemble C sera affiché pendant le temps T 


et l’on aura la graduation d'image: 
Fensemble A en gris foncé 
l'ensemble B en gris moyen 
Fensemble C en gris clair 


avec le blanc nous aurons ainsi quatre couleurs. 


Le programme MAND4CSI génèrera un GroB de hauteur 
égale à 3 écrans. Chaque tiers correspondant à un 
écran contiendra: 


le premier tiers les ensemble A,B,C 
le deuxième tiers les ensemble A,B 
le troisième tiers l’ensemble A 


Il faudra évidemment un programme d’affichage de 
ce type particulier de GROB 


Voici MAND4CSI qui s'emploie comme les précédents 
programmes et qui a les mêmes fonctionnalités que 
manD3cs1. Le listing est donné intégralement même s’il 
y a des parties communes avec les autres listings afin 
d'éviter les acrobaties de lecture. 


ARR IRD 


: MAND4CSI * 
* 545 octets cksum # 5B1Fh * 
* compatible S et & * 
* “ 


* Extension du programme MANDELGT permettant de 
* traiter 2 fois plus rapidement Les ensembles de  * 
* Mandelbrot Lorsqu'il y a symétrie (Ye = 0) y 


* et d'afficher des pixels fonction de La parité # 














HOMO € 0 


* 


* 


* 


* 


du nombre d'itérations avec La possibilité de # 
stopper Le programme sans arrêt système x 
Extension du programme MAND3CSI avec La construc- * 
tion de 3 écrans: + 
ler écr. avec Les pixels correspondant au maximmum* 
d'itérations sans dépassement de Limite * 
2ième écran avec Les pixels du 1er écran plus ceux* 
correspondant aux dépassements de limite Lors * 
d'une itération dont Le bit 0 du rang est de * 
parité impaire * 
3ième écran avec Les pixels du 2e écran plus ceux * 
correspondant aux dépassements de Limite Lors * 
d'une itération dont Le bit 1 du rang est de * 
parité impaire * 

* 

Auteur : Guy Toublanc Le 22/4/9% - 


fichier source compilable sur PC par RPLCOMP de HP* 
ou sur HP48 avec ->RPL de D. Mueller (en mettant * 


en majuscules Les mémoniques de L'assembleur  * 
RER 
arguments et notations : * 
arguments : * 


niveau 3 : (€ Xc,Yc) 1 complexe  * 
niveau 2 : C Px,Py) 1 complexe  * 





niveau 1 : iter 1 réel + 

Xc,Yc: coordonnées du centre de L'image * 
Px,Py: pas d'avancement en abscisses et ordonnées* 
îter : nombres d'itérations de ” 
ZCi+1) = Z(i)"2 +2 ” 


avec Z(i) = ( XzCi),Yz(i) ) (boucle Z) * 


Z=(CXz,YZ) pour Le point courant * 
* 





principe de départ: 
Xc,Yc,Px,Py sont multipliés par 
108576 = # 100000h puis convertis en 
entiers binaires signés pour Les calculs 
en virgule fixe : hhh....h , hhhhh 
pour ces arguments tous Les calculs se 
feront suivant ce mode 


Les autres variables : 


HOMO 6 6 6 


Xz0,Yz0 cordonnées du 1er pixel de La 1ère Ligne 
xi,Yi coordonnées du ler point de chaque Ligne  * 


Choucle 1) * 

Xj abscisse du point courant d'une Ligne * 
(boucle J) * 

X2,Yz coordonnées du point courant pour Le départ* 
de L'itération de La boucle Z * 
x2(H),Y2(i) voir ci-dessus * 
“ 

principe général : x 


chaque Ligne est parcourue de gauche à droite * 
par La boucle J, pour chaque point on fait n * 
itérations Citer) pour calculer Z(i) avec La * 
boucle Z : = 
si abs(Z(i) >= 2 alors sortie de boucle  * 
avec 3 cas pour Le nombre d'itérations k: * 


si k pair alors PIXON * 
si bit 1 de k est pair alors PIXON 
sinon point suivant 
sinon après Les n itérations on fait PIXON 
Le balayage (de haut en bas) des 64 Lignes 
effectué par La boucle 1 ou des 33 Lignes 
hautes jusqu'à l'axe de symétrie si Ye 


+ # 


MO mn 





0 

* 

* intégration dans La boucle principale 1 d'un test 
* d'appui de La touche [ATTN]/[CANCEL] pour sortie 


* de programme sans destruction de PICT 
“ 


ON 


* pour commencer : conversion des données en entiers* 
* binaires stockés dans un entier binaire Long de  * 
* 5*16 digits * 
PRRPRERREEERERNRREReRen 


CK3&Dispatch # 221 





MINUSONE UNCOERCE %1+ %* DUP 
%O 4e ITE :: ACHS X># HXS 1 
O SWAP bit- ; 
24 SUAP 


BUNROLL ZABS X># SUAP CX>% 
SPICK EVAL 

SPICK EVAL &HXS &HXS SUAP C2>%X 
4PICK EVAL 

BROLL EVAL &HXS &HXS 

BINTCOh BINT_131d MAKEGROB 


GROB>GDISP ZEROZERO WINDOW# 
ARR 


* niveau 1 : entier binaire contenant: * 
* iter , Px, Py, Xc, Ye * 
* soit 5*16 quartets de données * 
Te 
CODE 


=out<crin EQU #0leec 
gosbvl  =PopASavptr 





gosbvl =Disableintr 
di=a # à L'entier binaire 
do=(5) #0179 
a=dat0 à 
d0=a 
a=dat0 a 
do=a # @ PICT 
dO=d0+ 16 * saute prolog. Long. dims 
4 * et à début données PICT 
“ 
4 
5 
“ * d(w) := # 400000h : Limite 
10 *iter 
“ 
a *iter - 1 


* sauve iter sur rstk 
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Loopx 


Loopy 
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12 
63 





calcYzo * 


1 


* à index Lignes 1 
# 64 -1 Lignes pour Loopx 
index Lignes 1 


* 


* 


sauve à index 1 
restaure d1 et c(a) 
saute index absc., à Px 
px 


* 


* 


pour 65*Px et calcul Xzo 


a vp 


index boucle y 
Yp 


pour 32*Py et calcul Yzo 


a Xc 

Xc 

Xe - 65*Px 

Xz0 début de Ligne 

a Yc 

Ye 

à sauvegarde Xz0 

pour non symétrie 

07? 

oui alors non symétrie 
pour symétrie verticale 
cta) := adr. 1  r0 
cta) := adr. Xzo dia! 
sauve adr. Xz0 


* 


* 





Xz0 





* 


32 * €n Lignes à balayer) - 1 
b * index 1 
* récupère adr. Xz0 
* di à Xz0 
* xXzo 
calcYzo asatb w # Yz0 = Ye + 32*Py 
OUR 
*d1a%xzo àdi- 16 Py à di- 32 Px * 
* à di- 36 index Lignes (1=63 ou 32) * 
* à di- 34 index abscisses (4) $ 
* iter sur rstk p=0 rO:=%X20 ri := Yzo * 
* d&n) := 4 000..h  d€b) index pour boucleZ  * 
* dO à début données du pict * 
# a(u) := Yi = Yzo © := Xj = Xzo * 
[ERP 
Loop ri=a *vi 
ro=c * Xj = Xz0 
r2=c * xXz(i) 
di=di- 16 *aPy 
di=di- 16 * a px 
di=di- 2 # & index J abscisses 
Le(2) 130  * (131 - 1) pixels 
dati=e b # index J pixels 
d=0 xs * position pixel dans nib. 








d=d1 xs * initialisation 
LoopJ 
ARE 
# di a J d(xs) = 1 index position dans Le quartet * 
* et pour incrémenter d0 * 
*p=0 J=130 r0 ri r2 r3 actualisés * 
* d0 à début Ligne 1 + 
ARR 

c=rstk 

d=c b * index itérations 

rstk=c 
Loopz 
AA 
* calcul Xz(1)*2 Yz(1)"2 2Xz(1)*Yz(i) " 
* entrée : * 
x dia ” 
* principe : * 
* si (Z(i)"2 ) >= 4 donc abs(Z(i)) >= 2 : * 
* sortie pour Le pixel suivant de La Ligne * 
+ sinon PIXON x 
ARR 

ra # Y2() => r30u) 

gosub sqr * a(w) := Yz(1)"2 

résa * Yz(i)°2 -> r4(w) 

a=r2 * xz(i) 

gosub sqr * a(u) := Xz(i)"2 

c=r4 * YzCi)72 

c=c+a * X2(1)°2 + Yz(i)°2 

?d<c “ * Limite dépassée ? 

goyes _ nopixon * sortie de boucle 
cont c=r4 ÆN2CUPe 

a=a-c * X2(1)°2 - Yz(i)"2 

c=r0 * Xz 

a=atc * xXzCi+1) 

ar2ex * XzCi#1) -> r2 aCw) := Xz(i) 

arata * 2*Xz(i) 

c=r3 # YaUt2 

gosub mpy  * 2*Xz(i)*Yz(i) 

e=ri “ Yz 

a=atc * YzCi+1) C-> r3) 
nextZ d=d-1 b * index iter 

gonc  Loopz 
pixon Le(5)  (34*64) * offset pour autres écrans 

b=c a * sauvegarde 

c=datO xs * quartet contenant Le pixel 

e=cid xs * OR pour noircir Le pixel 

datO=c xs * remet en place Le quartet 

ad0ex * adr. quartet 1er écran 

d0=a * restaure d0 

a=atb a * adr. quartet 2e écran 

ad0ex *a # #. 

c=datO xs * quartet contenant Le pixel 

c=cld xs * OR pour noircir Le pixel 

datO=c xs * remet en place Le quartet 

ad0ex * adr. quartet 2e écran 

a=atb a * adr. quartet 3e écran 

ad0ex *a » à um 














nopixon 


testbit1 


nextpix 


idnib 


nextJ 


outJ 





c=dat0 
c=cid 
dat0=c 
do=a 
gonc 
c=d 
?cbit=0 
goyes 
c=dat0 
c=cid 
datO=c 
ad0ex 
d0=a 
Le(5) 
azate 
ad0ex 
c=dat0 
c=cid 
dat0=c 
d0=a 





c=d 
?cbit=0 
goyes 
c=dat0 
cz=cid 
dat0=c 
d=d+d 
gonc 
d0=d0+ 
d=d+1 


c=dat1 
c=c-1 
goc 
dati=c 
di=di+ 
a=r0 
c=dat1 
czatc 


gosbvl 
?cbit=1 
goyes 
a=ri 


xs  * quartet contenant Le pixel 

xs  * OR pour noircir Le pixel 

xs * remet en place Le quartet 
* 


à quartet 1er écran 
nextpix * saut pour Le pixel suivant 


b * index itérations à faire 
0 

testbit1 

xs  * quartet contenant Le pixel 
xs  * OR pour noircir Le pixel 
xs  * remet en place Le quartet 


* adr. quartet 1er écran 
restaure d0 
(34*64) * offset pour 2ième écran 


* 


a # adr. quartet 2e écran 
“a : Li 
xs * quartet contenant Le pixel 
xs * OR pour noircir Le pixel 
xs * remet en place Le quartet 
* à quartet er écran 
b 
1 * 2e bit pair ? 


nextpix * oui alors pixel suivant 


* 


xs quartet contenant Le pixel 
xs * OR pour noircir Le pixel 
xs * remet en place Le quartet 
xs * pour position pixel suivant 
fdnib * si pas encore position 3 
1 * après bit 0 -> 1 -> 2 -> 
xs * bit 3 on revient à bit 0 
* et on avance d’un quartet 
b * index J 
b 
outJ * on sort de La boucle J 
b * sinon sauve index J 
2 * a Px 
#* x) 
# * Px 
# # XCj#1) = XCj) + Px 
# XCj#1) -> r0 
* X2C1) = XCj#1) 
* Yz > Yz(i) > r3) 
2 * @ index J 
Loops 
2 * nib 34 puis Ligne 1 + 1 
2 # à index ! 
b * index I 
b *1-1 
?2sym * test avant sortie générale ? 
b * sinon sauve index I 
4 * saute Les 2 index 
16  *apPy 
zout<c>in 
15 * appui de [ATTNI/ICANCEL] ? 
gout * oui alors sortie générale 


Li 14) 


next 
?sym 


gout 
sm 


Looprou 


Loopoct 








w“ “ 
u * 
16 * 
ï “ 
Loop * 
1 “ 
goyes Sym  * 
goto out * 
c=0 a 
le(2) 16 + 
d=e a * 
le(s)  (34*64) 
b=c a 
Le(2) 29 # 
ad0ex 
di=a # 
rstk=c Æ 
Le(5)  (2*36) * 
* 
a=a-c a * 
d0=a x 
cd a = 
rstk=c # 
c=dat0 b * 
dati=c b * 
ad0ex F 
d0=a * 
asetb à # 
ad0ex * 
c=dat0 b " 
d0=a * 
adiex * 
di=a o. 
azatb a : 
adiex * 
dati=c b * 
di=a * 
ad0ex % 
d0=a * 
azatb a * 
a=atb a # 
ad0ex # 
c=dat0 b * 
do=a * 
adiex * 
di=a * 
azatb a : 
azatb a # 
adiex * 
dati=c b * 
di=a * 
do=d0+ 2 & 
disdi+ 2 * 
c=rstk 
e=c-1 b * 
gonc  Loopoct 
ad0ex # 
c=rstk 


Py 

YCi#1) = YC) - Py C->r1/r3) 
à Xzo 

Xz0 

a:= Y(i+#1) c:= Xzo di à Xzo 
symétrie ? 

oui alors on continue 

sinon sortie générale 


index octets par Ligne 
sauvegarde 


* offset entre écrans 


n-1 Lignes à symétriser 


à début Ligne sous axe 
sauve index lignes 

offset pour reculer au 
début Ligne au-dessus 

Ligne au-dessus 

aus = 

index octets par Ligne 
sauve index octets 

octet du grob au-dessus axe 
symétrise 8 pixels à La fois 
adr. octet 1er écran 
restaure d0 

adr. octet 2ième écran 

a e £ S 
restaure d0 

adr. octet sous axe 
restaure di 

adr. oct. sous axe 2e écran 
a = SO He 
symétrise l'octet 

restaure di 1er écran 

adr. oct. Îer écran 
restaure d0 

saut 2ième écran 

saut 3ième écran 

@ oct. au-dessus axe 3e écr. 
restaure d0 

adr. octet sous axe 
restaure d1 


adr. oct. sous axe 2e écran 
adr. oct. sous axe 3e écran 
a 3 27134 ENS 


symétrise L'octet 

restaure di er écran 

8 pixels ou octet suivant 
dito 


index d'octets - 1 


a := adr. fin Ligne copiée 








PC 96 Pabe 19: — 





— JPC 96 Page 20 





ce=e-1 b #* index de Lignes - 1 
gonc  Loopron 
out  c=rstk #* enlève iter de La rstk 
gosbvl =AllouIntr * autorise Les interrupt. 
govlng =GETPTRLOOP * retour au Rpl 
[PATES 
* produit de 2 nombres < à 2 en valeur absolue “ 
* en entrée : au) & c(w) Les 2 nombres à multiplier* 
* “ 


*en sortie : an) = a*c  c(w) = 0 ” 
ARR 





sqr ca “ * pour le carré 
mpy st=0 2 * pour Le signe 
28=0 os # positif ? 
goyes  apos * oui alors test autre fact. 
a=-a “ * sinon valeur absolue 
st=1 2 * pour négatif 
apos s * positif ? 
mpy0  * oui alors produit 
w * sinon valeur absolue 
2 * er facteur négatif ? 
neg # alors produit positif 
2 * sinon produit négatif 
mpy0  * saut pour Le produit 
neg 2 * pour produit positif 
mpy0 “ * initialisation produit 
“ # au) prod. bu) muliplican. 
mpy1 # pour bit O nul 
csrb * divise par 2 
?sb=0 * bit 0 nul ? 
goyes mpy2  * alors produit inchangé 
azatb w * sinon produit partiel 
mpy2  b=btb u * multiplicande * 2 
2c#0  w * reste bits multiplicateur ? 
goyes  mpy1 * oui on itération 
gosbvl =ASRW5 * sinon divise par # 100000h 
2st=0 2 * produit positif 
rtnyes * oui retour 
a=-a * sinon entier signé 
rtn 
ENDCODE 
GBUFF 


Bon voyage … ou de zoom en zoom 


Pierre nous a donné une méthode pour faire un zoom 
d’un sous-ensemble mais le procédé a deux 
contraintes : 


il faut modifier le PAR, celui-ci correspondant à la vue 
d'ensemble ce qui exclut d’opérer directement de 
Zoom en Zoom. 


Aussi je vous propose le programme MZ00M qui permet 
d'aller de zoom en zoom automatiquement. 


Mode d'emploi : 


- En partant du GROB généré par MAND4CSI Où MANELDGT 
ou MAND3CSI avec le centre de coordonnées Xc et Ye, le 
pas horizontal Px et le pas vertical Py : 


niveau 3:(Xc, Yc ) 
niveau 2:CPx, Py ) 
niveau 1 : le GRoB 





MZOOM fait entrer dans l’environnement graphique : 


- Déplacez le curseur sur un angle du rectangle que 
voulez zoomer. Appuyez sur [ENTER] pour digitaliser 
ce point. Déplacez le curseur à l’angle opposé de la 
diagonale. Appuyez sur [ENTER]. Si vous avez une 
HP48s/sx vous pouvez changer la couleur du curseur 
avec la touche [+-1. Sortez de l’environnement avec 
cANCEL sur HP48g/gx ou ATTN sur HO4Ss/sx. 


- Répondez au questions: 


sym? vous avez choisi une Zone que vous désirez 
symétrique par rapport à l'axe horizontal 
mais votre digitalisation est imprécise 
alors le programme fera le nécessaire. 

carré? le programme peut corriger l’imprécision 


de digitalisation pour rendre la zone carrée 


- Entrez les réponses dans la même ligne. et validez. 


iter =? 

nn nombre d’itérations déjà proposé. Modifiez 
sinon validez directement si vous acceptez 
ce choix 


Après l'exécution du programme vous trouvez sur la 
pile les paramètres correspondant au GROB qui est sur 
la pile et vous pouvez: 


- Sauvegarder le 6RoB 


- Si vous avez utilisé MAND4CSI vous pouvez l'afficher 
en nuances de gris avec le programme D4coL 
ci-dessous en n’oubliant pas de sauvegarder ou de 
faire DUP pour continuer de zoomer. 


Le processus peut ainsi se répéter automatiquement 
en activant MZOOM avec les paramètres qu’il avait laissé 
sur la pile. 


MZOOM 
484.5 octets cksum # 827Dh 
« STD 
{ # Od # Od } € # 130d # 63d } SUB 
PICT PURGE PICT STO 
- CPI 
« C C-R P C-R DUP 











63 * SWAP 32 * 4 
ROLL + DUP ROT - 
ROT DUP 130 * SWAP 
65 * NEG 5 ROLL + 
DUP ROT + XRNG SWAP 
YRNG PICTURE 
“sym.? oui/non + 1/0 
carre? oui/non + 1/0" 
mu INPUT OBJ- 
“iter = 2" 
I -STR 
INPUT OBJ+ ROT 
NOT -C1CEIS 
« C1 C2 - C-R 
ABS 63 / SUAP ABS 
130 / SWAP E 
IF 
THEN + 2 / DUP 
END R-C C1 C2 
+2 / CR S * R+C 
SWAP 1 3 DUPN 


@ GRAPH pour HP48S/SX 


» 


» MAND4CSI @ ou MANDELGT ou MAND3CSI 


Exemples : 


générons la vue d’ensemble avec: 


«0.5, 0) 
(0.03 , 0.03) 
20 
3 DUPN pour utilisation ensuite avec MZOOM 


MAND4CSI 





| 
| 
sauvegarde et rappel du GROB | 
sur pile (facultatif) I 
| 
| 
I 
| 


DUP D4COLOR si GROB généré par MAND4CSI 
pour visualisation en nuances de gris (facultatif) 


Enfin voir en couleurs 


Comme il a été expliqué ci-dessus (Bébé prend des 
couleurs) suivant le temps d’affichage des objets 
graphiques il est possible de les voir en nuances de 
gris. Le programme D4CoLoR permet l'affichage en 3 
ou 4 couleurs suivant que l’objet graphique est 
composé de 2 ou 3 parties correspondant à 2 ou 3 
écrans. Ces objets peuvent être réalisés avec le 
programme MAND4CSI ou par tout autre programme 
qui construit des objets graphiques suivant ce même 
principe. DécoLor détecte si le GRoB est de hauteur 
supérieure à 128 lignes et dans ce cas affichera en 4 
couleurs sinon en trois. Dans le cas d’un affichahe en 





3 couleurs il y a une temporisation entre chaque 
affichage pour éviter d’avoir des couleurs claires 
baveuses (défaut du programme GREY de voyage G, 
encore un programme qui laisse à désirer). De plus il 
est compatible G et S. 


Son emploi est simple : il prend en argument 1 6Roœ& 
généré par MAND4CSI ou tout autre GROB similaire. La 
sortie se faisant par l'appui sur [ATTN] (HP48s_) ou 
IcANCEL] (HP48g _). 


Le contraste est à adapter pour obtenir le meilleur 
aspect. 


Voici ce programme. 


ARIANE 


* D4COLOR * 
* 153 octets  cksum # D219h * 
* compatible HP48G/GX et HP4BS/SX * 
“ * 
* programme d'affichage en trois ou quatre nuances * 
* de gris d’un objet graphique composé de 2 ou 3 * 
* parties correspondant à 2 ou 3 écrans. * 
* La succession des affichages créant ces nuances  * 
* de gris. * 
* Auteur : Guy Toublanc Le 24/49 * 
* “ 
# argument : 1 objet graphique spécifique pour ces * 

“ 


* affichages 

EE 
CK1NoBlame CK&DISPATCH1 TUELVE 

22 TURNMENUOFF 

CODE 

=savleftmargin  EQU #00100 

=adrptrbitmap  EQU #00120 

=savrightmargin  EQU #00125 

=savvideosynchro EQU #00129 











=savVDISP1 EQU #01F79 
=DISPICTLS EQU #7050E * pour HP48S/SX 
=VDISPIs EQU #70558 * pour HP48S/SX 
=DISPICTLg EQU #8068D * pour HP48G/GX 
gosbvl  =PopASavptr 
gosbvl  =Disablelntr * interdit Les inter. 
do=a * @ Le grob 
d0=d0+ 10 * @ La hauteur du grob 
0 * pour plus de 2 écrans 
a * hauteur grob 
128 * hauteur 2 écrans 
a * plus de 2 écrans ? 
3ser * oui alors 3ser 
0 * sinon pour 2 écrans 
3ser do=do+ 10 * à données du grob 
ad0ex * adresse 1er écran 
b=a a * adr. 1er écran -> b(a) 
Le(3) (34*64)  * offset entre écrans 
azatc a * adresse 2ième écran 
c=atc a * adresse 3ième écran 
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a * sauvegarde 
=savleftmargin 
s 
?abit=0 0 * adresse paire ? 
goyes nop * oui on saute 
Lchex € 
datO=e 1 * marge à 4 
d0=(2)  =savrightmargin 
a 
a * pour # FFFh (-1) 
x * marge à -1 
nop adrptrbitmap 
=savvideosynchro 
Loop a * adresse 1er écran 
dispser  * affichage 1er écran 
a * adresse 2ième écran 
dispser  * affichage 2ième écran 
0 * 3ième écran ? 
3Scr * oui pour affichage 
800 * pour une temporisation 
waitLoop x * boucle d'attente 
waitLoop 
?out * on saute affich. 3e écr 
3Scr c=d a * adresse 3ième écran 
gosub  dispser * affichage 3ième écran 
?out gosbvl  #0leec * out=c c=in 
?cbit=0 15 * 2 pas d'appui sur ATTN 
goyes Loop * oui on reboucle 
out d0=(2) =savleftmargin 
datO=c s * restaure marge gauche 
Le(5) =VDISP1S 
d1=(5) =savVDISP1 
a=dati a 
d1=(5)  =DISPICTLS 
?a=c a * hp48s/sx ? 
goyes  restore  * oui on garde di 
d1=(5)  =DISPICTLg * pour hp48g/gx 
restore c=dati 8 * récupère val. bitmap 
d0=(2) drptrbi tmap 
8 * restaure bitmap initial 
gosbvl  =AllowIntr * autorise Les interrupt 
goving =GETPTRLOOP * retour rpl 
dispser dati=c a * charge adresse écran n 
vsyncl c=datO 1 * bit 1 de La synchro vid 
?cbit=1 1 * toujours à 1 ? 
goyes  vsynci  * oui on attemd encore 
vsync2 ce=datO 1 * après passage à 1 
?cbit=0 1 * est-il repassé à 0 ? 
goyes  vsyne2  * si oui on reboucle 
rtn 
ENDCODE 





Aspects pratiques 


Le programme MAND4CSI est polyvalent et peut très 
bien remplacer MANDELGT et MAND3CsI. En effet vous 
pouvez extraire du GROB l'une des trois parties. Voici 
un petit programme MPART pour vous aider à faire ces 
extractions. Son emploi est simple: 


niveau 2 : le GROB généré par MANDA4CSI 
niveau 1 : 1 réel pour le numéro de la partie 


MPART 
243.5 octets cksum # 544Bh 
CASE 3 OVER 
THEN DROP € # Od # Od } € # 130d # 63d } 
END 2 == 
THEN € # Od # 64d } € # 130d # 127d } 
END € # Od # 128d } € # 130d # 1914 } 
END SUB 





1 donnera le grob correspondant à MANDELGT ou bien à 
MAND3CSI avec iter positif. 

2 donnera le grob correspondant à MAND3CSI acec iter 
négatif. 

3 donnera le grob correspondant à l’union des trois 
ensembles de points fournis par MAND4CSI. 


Ainsi en prenant les parties 1 et 2 vous aurez un GROB 
visualisable en 3 couleurs avec D4coLor. Dans ce cas il 
sera peut-être nécessaire d’adapter le contraste. 


Lorsque le GRoB généré par MAND4CSI est stocké en PICT 
et que vous faites PICTURE sur HP48g/gx ou GRAPH sur 
HP48s/sx n'oubliez pas que que le GRoB apparaît à 
mi-hauteur, pour voir la partie classique allez 
jusqu’en bas. 


Vous pourrez constater des différences de détails 
avec les images des ensembles de Mandebrot dans les 
livres, cela est normal car la définition de l’écran d’un 
HP48 nest pas comparable à celle d’une image 
obtenue par un ordinateur. 


Vous trouverez les codes de tous ces pogrammes dans 
le coin des codes. 


CONCLUSION 


Comme quoi le travail de l’un peut en engendré un 
autre. Merci encore à Pierre du sien qui, s’il était 
perfectible, m'a permis d’attaquer ce problème de 
fractales et de graphisme avec plaisir. 


Guy Toublanc (276) 
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POUR QUELQUES 
DISQUETTES DE PLUS... 


Comme annoncé le mois dernier, voici deux nouvelles 
disquettes de programmes destinés aux HP95 et 
HP100. Mais si celles que nous vous avions présenté 
précédement contenaient des programmes pouvant 
fonctionner sans problèmes sur les deux machimes, ce 
n’est plus le cas avec la distribution de ce mois ci. 
Faites donc attention pour vos commandes. 


Rapellons que, comme pour les précédents articles, 
celui ci ne présente que les programmes qui me 
semblent les plus intéressants, et non le contenu total 
des disquettes. 


Disquette HP95 


Notez tout d’abord que cette nouvelle disquette 
contient quelques nouvelles versions de programmes 
déjà présents sur les deux premières disquettes. Il m’a 
semblé plus simple d’agir ainsi, car cela evite aux 
anciens utilisateurs d’avoir à faire des mises à jour 
alors que le nombre de fichiers modifiés est très 
faible. 


Directory : \UTILS 


Il peut être utile, lors du lancement de certains 
programmes MS-DOS, de pouvoir positionner la 
fenêtre 40x16 de l'affichage du HP95 à un 
emplacement autre que le coin Supérieur-Gauche. 
Un petit utilitaire, nommé winpos, vous évite les 
toujours désagréables pressions simultanées de 
[AL] [FLèches]. 


Si vous trouvez que la lecture des fichiers textes sur 
un écran aussi large que celui du HP95, peut être 
fatiguant à la longue (à cause de lobligation de faire 
des longs retours à la ligne), vous pouvez utiliser VR95, 
qui permet de basculer l'affichage du texte de 90°, et 
de prendre le HP95 en main de la même façon qu’un 
livre. De plus, l'affichage s'effectue en utilisant une 
des nombreuses polices, en différents styles (gras, 
proportionnel) et plusieurs tailles. 


Si vous avez pris la (bonne) habitude d’effectuer très 
régulierement des sauvegarde du contenu du HP95 
sur votre IBM PC, mais trouvez les différentes 
manipulations à effectuer trop lourdes, vous pouvez 
utiliser CARDBAK qui sauvegarde le contenu total d’une 
carte mémoire dans un fichier unique du PC. Cela se 
fait en utilisant d’un coté (le PC) le programme 
CARDBAK.EXE et de l’autre la commande SSERVER (non 
documentée) du HP95. Mais le fait que vous stockez 


sur le PC un fichier unique vous interdit d'effectuer 
des modifications de vos sauvegardes directement sur 
le PC. De plus il ne permet pas de sauvegarder le 
contenu du disque C: et ne fonctionne pas avec les 
cartes de type SunDisk. Mais d’un autre côté, les gros 
avantages de ce programme sont la facilité 
d'utilisation, et surtout que vous n’avez besoin 
d'aucun programme à charger sur le HP95. Donc 
économie d’espace disque et aucun problème en cas 
de perte totale du contenu de la machine. 


Un des petits défauts du HP95 est que si une alarme 
survient lorsque l’on est sous le DOS, elle est ignorée. 
DOSALARM corrige ce problème et ajoute une 
commande permettant d’activer une alarme à une 
heure donnée. 


Directory : \CALC 


Parmi les reproches faits à la calculatrice installée 
dans le HP95, les manques de fonctions statistiques et 
de conveersions de bases (binaire, hexadécimal...) 
revienent souvent. Les programmes STCALC et HEXCALC 
résolvent ces problèmes. La grande diférence entre ce 
dernier et CMCALC (inclus dans la disquette 1) est que 
c’est un programme DOS, et non System Manager. 


Directory : \TEXTES 


Il contient une petite sélection de fichiers texte, dont 
certains auraient pu faire l’objet d’articles, si j'avais eu 
le temps de m’en occuper... Notez qu’is sont tous en 
Anglais. 


Tout d’abord, pour ceux que cela pourrait intéresser, 
jai inclus le communiqué officiel annoncant le 
HPOSLX. 





Pour les <encore> débutants, un fichier FAQ95 
contenant les réponses aux questions les plus 
courament posées. 


Enfin, pour les curieux, deux fichiers (HP9S.HW et 
INTHE-$) donnant quelques informations sur le coté 
“hardware” et certains aspects cachés de la machine. 


Directory : \ DIVERS 
Si vous voulez montrer les possibilités du HP95 à vos 
proches, quoi de mieux que le programme inclus dans 


la carte de démonstration faite par HP lors de la 
sortie de la machine ? 


Directory : \IMAGES 


De nombreuses images au format PCX 240x128, pour 
ceux qui veulent changer leur "Topcard". Les sujets 











sont très divers, mais on peut noter un certain attrait 
autour de la série "Star Trek”. 


En prime, un programe (PIXER) permettant de 
manipuler ces fichiers. 


Disquette HP100 
Directory : \UTILS 


Dans un précédent JPC, je vous avais présenté une 
commande permettant de modifier la valeur du 
Zoom. Cependant, faute de renseignements 
suffisants, je n’avais pas inclus d'options permettant 
de basculer en affichage monochrome ou 4 niveaux de 
gris. Heureusement, la commande Z00H termine le 
travail là où je l'avais commencé. 


Si vous avez des problèmes en utilisant des 
programmes de communication sous le System 
Manager, c’est probablement dû au fait que cette 
interface modifie d’elle-même l’état de la liaison 
série. Pour corriger cela, vous pouvez utiliser ASERCTL, 
un petit résident vous permettant de l'activer ou de la 
désactiver. 


Que ce soit pour transférer le contenu de votre 
répertoire téléphonique HP95 vers le HP100, ou 
convertir au format texte un fichier de Base de 
données du HP100, quelques petits utilitaires sont 
inclus dans la disquette. 


Si vous trouvez les caractères du HP100 peu lisibles 
(surtout en mode 80x25), un petit programme 
(HELV100) permet de les remplacer par des polices 
"Helvetica". Le gain de visibilité est tout simplement 
fabuleux... 


Et si vous trouvez que les caractères affichés par 
HELV100 ne sont toujours pas assez lisibles, vous n’avez 
plus qu’à utiliser FCL pour créer les votres ! 


Tout comme 958uppY (inclus dans notre disquette n°1) 
est devenu le plus célèbre programme écrit pour le 
HP95, 1008upY semble être bien parti pour faire de 
même. Pour ceux qui ne le connaissent pas, il s’agit 
d'un programme étendant les possibilités et 
l'ergonomie des applications internes. Je ne peux que 
les conseiller de lessayer. Cependant, puisque le 
HP100 ne possède plus qu’une seule langue de travail, 
il ne fonctionne pas totalement sur le version 
Française de la machine. Voir l’article suivant pour 
plus d’informations à ce sujet. 


Si vous avez lu ma présentation de la disquette 
précédente, vous ne devriez pas avoir de problèmes 
pour savoir à quoi sert un programme s’appelant 
VR100... 


Par le même auteur que le programme précédent, 
CLIPVUE permet de transférer le contenu du 
presse-papier dans un fichier, ou au contraire de 
charger le presse-papier avec le contenu d’un fichier 
texte. 


Enfin, si vous désirez utiliser des programmes 
MS-DOS relativements gourmands en mémoire, il 
existe maintenant un driver EMS spécifique au 
HP100, utilisant le disque C: pour simuler la mémoire 
étendue. 


Directory : \TEXTES 


Tout comme pour le HP95, j'ai inclus le communiqué 
officiel annonçant le HP100LX. 


Plus quelques fichiers apportant des précisions à 
propos de certains aspects non cités dans la 
documentation du HP100 : Les icônes ou les 
paramètres à utiliser pour mieux contrôler l'exécution 
des applications externes à partirt du System 
Manager. 


Directory : \IMAGES 


Quelques images au format PCX 640x200. Je n’ai pas 
encore eu le temps de décider du contenu exact de ce 
directory. 


Directory : \ICONES 


Un des grandes nouveautés du System Manager du 
HP100 est la possibilité d’attacher des icônes aux à 
certaines applications. Ce directory contient donc 
quelques icônes, correspondant soit à des 
programmes connus, soit sont totalement inventées 
pour votre propre usage. 


Directory : \DIVERS 


Le fichier 42ALARZIP contient une très importante 
collection de fichiers d’alarmes musicales. A ce 
propos, si vous désirez écouter plusieurs fichiers 
"snd', les manipulations deviennent vite très 
fastidieuses, car il faut à chaque fois recopier le 
fichier d’alarme dans le directory C:\ DAT, sous le 
nom ALARMSND, puis acceder à l'écran de 
configuration des alarmes Pour simplifier ces 
manipulations, je vons conseille d’assigner la macro 
suivante à la touche F1 (par exemple) : 


{F2)c:\_dat\alarm.snd{Entrée}{Entrée}{Menu)obfas{Gest} 
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Ensuite, il ne vous suffit plus qu’à vous placer sur le 
fichier ".snd" que vous voulez écouter, puis à appuyer 
sur (Fnt] [F1] pour que le HP100 fasse tout le travail à 
votre place. Y compris le retour sur le Filer après que 
la musique ait été testée. 


Notez cependant que si certains fichiers donnent des 
résultats très spectaculaires (‘"Eruption", par 
exemple), d’autres, comme "Getup" contiennent des 
périodes, durant parfois plus de dix secondes, au 
cours desquelles aucun son n’est émis. Ne touchez 
donc à rien et attendez que la macro se termine en 
retournant sur le Filer. 


Directory : JEUX 


Pour finir, cédant à une forte pression (enfin, pas si 
forte que ça !) de certains utilisateurs, j'ai ajouté ici 
quelques petits jeux fonctionnant en mode CGA. Bien 
sûr, je n’ai pas pu eu le droit d’y mettre "Flight 
Simulator", mais certains d’entre eux, mmême si il 
sont déjà ancien, devraient vous faire passer quelques 
heures... 


Parmi ceux ci, GTHOR, qui est un des meilleurs 
programmes d’Othello. Si il est très difficile de le 
battre sur un PC équipé d’un 386 rapide (même au 
niveau 1 pour quelqu'un battant presque 
systématiquement la version incluse dans Windows) il 
revient à un niveau plus civilisé dès qu'il tourne sur le 
HP100. 


Parmi les jeux d’echecs, j'utilise CHESS (oui, je sais, 
c’est très original comme nom !). D’un assez bon 
niveau, il possède en plus deux particularités pour un 
programe de son age (1985) : un mode démo et une 
option d'affichage en 3D, assez agréable sur le 
HP100. Il est à noter cependant qu’il semble y avoir 
un problème dans la gestion du temps de réflexion, 
puisque le temps effectif est trois ou quatre fois 
suppérieur à ce qui est sélectionné. Autre remarque 
(valable aussi pour d’autres programmes) : Au 
lancement, il demande le type d’adaptateur utilisé. 
Répondez "Couleur" et jamais "Hercule". 


Parmi les autres archives, un autre jeux d’échecs, 
chinois cette fois ci. Le fichier ZIP contient deux 
programmes indépendants CCHESS et XQ. Je ne saurais 
vous dire lequel est le meilleur, mais xa possède 
l'avantage d’être infiniment plus compact. 


Et en prime... 


Ne sachant pas encore quand nous serons en mesure 
de vous présenter une autre disquette commune pour 
les HP95 et HP100 (j'ai passé tout ce qu’il y avait 
d’intéressant), vous trouverez dupliqué dans les deux 
nouvelles disquettes certains oublis et quelques 


nouvautés qui auraient du passer dans la disquette 
parue le mois dernier. 


Par exemple, pour les utilisateurs de cartes de type 
SunDisk (non Stackées) : 1KCLUST, un programme 
reformattant la carte avec des clusters ayant une taille 
de 1ko, au lieu de 4. D’où une économie très 
apréciable d’espace disque. Bien sûr, n’exécutez ce 
programme qu’une fois que vous aurez sauvegardé le 
contenu de votre carte. D’autant plus que je n’ai pas 
encore eu l’occasion de le tester... 


Ici se termine la présentation de ces deux disquettes. 
Il ne vous reste plus qu’à en découvrir le reste du 
contenu... 


Jacques Belin (123) * 


SOYEZ COPAINS 
AVEC 100BUDDY 


Les anciens utilisateurs de HP95 connaissent 95BUDDY, 
un impressionnant programme écrit par Jeffrey 
Mattox permettant d’accroitre de façon très 
significative l’ergonomie du System Manager. Depuis 
quelques mois, le même auteur a renouvelé l'exploit 
en sortant une version spécifique au HP100. 


Malheureusement, si la version dédiée au HP95 
fonctionnait parfaitement (à condition qu’on 
configure la machine en version Anglaise), la nouvelle 
version pose plus de problèmes, puisqu'il est annoncé 
qu’elle ne fonctionne pas sur la version Française du 
HP100. 


Cela est dû principalement au fait que le HP100 ne 
contient plus qu’une seule langue dans la Rom, et que 
le programme fait souvent appel à des resources 
dépendantes des messages ou des menus, sous la 
forme d’appels de macros clavier. 


Par exemple, il est possible, sur la version US, de 
sélectionner l’ordre d’affichage des fichiers en 
appuyant sur une des touches ICtri]tF], [Ctrl][E], 
{Ctrl]is] où ECtrl] {D}, suivant le fait que l’on veille 
un tri par nom, extension, date ou taille. En fait, 
BUDDY (que ce soit pour le HP95 ou le HP100) ne 
répète rien d’autre que les actions que vous feriez 
manuellement, en accédant aux différents menus 
grâce aux lettres "clés". Soit, pour l'exemple cité, la 
simulation de la pression des touches [Menu], [0] 
(menu Option), ts1 (ligne "Sort" puis sélection de 
lordre de tri. Malheureusement, "Sort" se dit "Tri" en 
Français. Le programme ne trouve donc pas le bon 
menu, et est donc perdu pour la suite des opérations. 











D'autant plus que dans notre exemple, la lettre "S" est 
utilisée comme clé pour accéder à la ligne "DOS". 
D'où un comportement assez particulier. 


Cependant, d’autres fonctions ne fonctionnent pas 
pour d’autres raisons plus complexes à expliquer. Cet 
article a donc pour but de vous indiquer les fonctions 
supportées par la version Française, ainsi que de vous 
indiquer quelques moyens pour contourner certains 
problèmes. 


Afin de simplifier les choses, je suivrais ici 
lorganisation de la documentation du programme, en 
conservant les titres et les numéros des chapitres 
originaux. Je n’entrerais pas dans les détails du 
fonctionnement de chaque fonction. Il vous est donc 
conseillé de vous munir de la doc afin de savoir de 
quoi je parle exactement, et si possible d’avoir installé 
le programme sur votre HP100 et au moins jeté un 
coup d'oeil sur les différents écrans du "frontal" 
100BUDDY .EXM. 


A ce propos, notez que, pour effectuer ces essais, j’ai 
systématiquement activé toutes les fonctions 
sélectionnables par le "frontal". Ne vous étonnez donc 
pas qu’une fonction ne fonctionne pas sur votre 
machine, alors que j'ai dit le contraire. Dans ce cas, 
vérifiez que vous ne devez pas changer une option. 


3. Instalation et usage général 


Aucun problème pour toute cette partie, si ce n’est 
que pour la désinstalation (chap. 3.5), j'ai crashé le 
HP100. Mais cela est peut-être dû tout simplement à 
la méthode particulière que j'utilise pour lancer le 
System Manager. 


4.1 Fonctions générales 


La plupart des fonctions décrites dans ce chapitre 
fonctionnent parfaitement, à l'exception de MENU-DEL 
(simulation de macro, comme expliqué plus haut) et 
FN-a, dont je n'ai pas pu obtenir une visualisation de 
l'état du flag et tester le foctionnement des fonctions 
associées. 


Si il est possible d’afficher l’écran d’aide de Buddy (en 
double-cliquant sur F1), j'ai constaté quelques 
problèmes lors du retours sur Papplication 
précédente. 


Enfin, je n’ai pas pu tester toute la partie concernant 
le mot de passe, car elle n’est accessible qu'aux 
utilisateurs enregistrés. 





4.2 Conversions Clavier 


Toutes les fonctions agissent parfaitement (n’oubliez 
cependant pas d’activer les différentes options dans le 
fichier "EXM") à l’exception de la touche DEL, qui est 
censée annuler la dernière opération. En fait, elle 
efface totalement le caractère. 


4.3 SmartCaps 


Aucun problème. 


4.4 Fenetres d'ouvertures de fichiers 


Ici, par contre, aucune des fonctions ne semblent 
fonctionner. A lexception du positionnement sur un 
fichier dont on a tapé la première lettre. 


4.5 Liens avec d’autres applications 


Je n’ai pas eu le temps d’approfondir cette section, 
mais son fonctionnement semble peu sartisfaisant. 


5.1 Fonctions du Filer 


Parmi les fonctions que j’ai pu tester, il semble y avoir 
autant de fonctions correctes que de fonctions 
invalides. Par contre, certains problèmes peuvent être 
contournés. 


Fonctions correctes : 


- Le curseur descend bien sur la deuxième ligne des 
fichiers. 

- Bon affichage des valeurs des batteries, de l’état du 
port série, du timeout et de la mémoire vive 
disponible. 

- Modification de la valeur du Timeout et de l’état du 
port série. 

- Affichage du contenu d’un fichier quelquonque, à 
Faide de la touche fEntréel. 

- Descente d’une ligne du pointeur après sélection 
d'un fichier. 

- Descente dans l’arborescence grace aux touches IN] 
et C1. 

- Gestion des touches (flèches, Del.) pendant la 
visualisation d’un fichier texte. 


Fonctions incorectes : 


- Pas d’affichage du flag "Q". Je n’ai pas testé la 
fonction associée. 

- Apparament, mauvais fonctionnement de la gestion 
du lancement des fichier "BAT". 
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- Lorsque lon appuie \- Impossibilité de lancer un 
programme correspondant à l'extension du fichier 
sélectionné. 


- En fait, impossibilité de lancer automatiquement 
l'édition d’un fichier visualisé dans le Filer : l'éditeur 
se charge bien, mais aucun fichier n’est chargé. 
Dommage, cest une des fonctions les plus 
importantes de Buddy... 


- Action des combinaisons de touches Fn-1, F6, F9, F10, 
F2-F2, F3-F3, Ctrl-F..Ctrl-D, =, Menu-f-0 OU y. 

- Fonctions relatives aux recherches de chaines. 

- Le contrôle du Light Sleep (par ctri-L semble 
fonctionner, mais l'affichage du message se fait dans 
la zone des fichiers ! 


Contournement de problèmes : 

- Certaines commandes de déplacement du pointeur 
de fichier, ainsi que l’accèe aux répertoires sont 
inopérants dans certains cas (par exemple lorsque 
Pécran est divisé en deux). Dans ce cas, je vous 
conseille de désactiver Buddy (par cTuou#c-#), 
d'effectuer vos modifications, puis de réctiver Buddy 
(par cTvou#c+). 

5.2 Fonctions du Setup 

Tous les affichages fonctionnent, mais il n’est pas 
possible de lancer les écrans de configuration à l’aide 
des touches de fonctions, car elles agissent comme 
des macros (voir au début de Particle). 

5.3 Fonctions de l'éditeur 

Aucune commande ne fonctionne, si ce n’est les 
combinaisons Ctrl-DEL et Ctrl-BACKSPACE, lest touches 
F6, F7, F8 et les fonctions citées dans le chapitre 5.6. 


5.4 Phone, Note taker, Database 


Voir chapitre 5.6. 


5.5 Fonctions de l'agenda 

Ne fonctionnent pas, à l’exception des fonctions citées 
dans le chapitre 5.6 

5.6 Fonctions du "Note Taker" 


Toutes les fonctions semblent être activables. 


5.7 Fonctions de Lotus 


Aucune ne semble fonctionner, si ce n’est l'affichage 
concernant les touches fonctions. 


5.8 Fonctions de la calculatrice 
La touche "p" ne semble pas pouvoir être activée. 
5.9 Heure mondiale 


Non testé (fonctions réservées aux utilisateurs 
enregistrés. 


5.10 Application Manager 


Semble ne pas fonctionner correctement. 


5.11 Macros Systeme 


Les touches F9 et F10 
correctement. 


ne fonctionnent pas 


5.12 Fonctions Dos 


Le contrôle de la taille du curseur sous DOS semble 
fonctionner, mais il semble (cela m’est arrivé une 
fois) qu’il y ait un problème pouvant entrainer un 
crash du HP100 lorsque l’on appuie sur la touche 
Fn-C. 


Les fonctions de SmartCaps semblent fonctionner 
parfaitement. 


Je n’ai pas testé les fonctions relatives à la liaison 
série. 


6. Fonctions de 100BUDDY.EXM 


Fonctionnement normal (application System Manager 
classique. 


J'espère que cet article vous aura donné suffisement 
d'informations pour que vous puissiez décider si vous 
allez installer ce programme. 


Mais avant de terminer, je voudrais dire (pour 
répondre à certaines personnes) que ce sujet montre 
qu’il est tout à fait possible de faire des articles sans 
avoir aucune notion de programmation. Ici il suffisait 
de lire la doc et d’essayer les différentes fonctions. 
J'espère donc qu’il vous donnera aussi des idées 
d'articles. 


Jacques Belin (123) 














LE COIN DES CODES ASSCOD48 11145 octets ASSCOD28 1032.5 octets 
cksum # 621Eh cksum # 55CEh 


La compilation de certains programmes, tels ceux  @°*******#+####+222++ Hp48 et HP-28S **teenmesanmensesss 
écrits en assembleur, nécessitent souvent un logiciel  « RCLF « CLLCD 3 DISP 1 DISP 
que ne possèdent pas tous nos lecteurs. Le Coin des DO DuP 4 DIsP 





Codes permet de résoudre ce problème. DO UNTIL KEY END 
@ verenesesenne HpL4g seseesersne QG seeenee HP.28S venues 
Note importante: IF DUP 51 == THEN DROP 1 @@ 1F DUP "ENTER 
ELSE 1F DUP 55 == THEN DROP  @@ THEN DROP 1 
Même si la présentation des listings est identique, le 1 OVER SIZE 1 - SUB @@ ELSE 
traitement de ceux-ci est différent suivant le ELSE @@ IF DUP "BACK" == 
programme d’entrée et la machine de destination. CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
Chaque listing est prévu pour être entré sur sa DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
machine de destination. Par exemple, ne tentez pas DUP 76 < THEN 20 - END @@ ELSE 
d'entrer un programme HP48 dans un fichier DUP 86 < THEN 33 - END @@ 
MS-DOS à laide du programme MakeDos. Vous DROP 48 END CHR @e@ 
obtiendriez un fichier au transfert impossible dans la  @*******"*+#e+seeeee Hp 48 ct HP-28S *teseesseusensensens 
HP48. + DUP SIZE 1+5 MOD NOT 1 FC? AND IF THEN" "+ 
END END O END UNTIL END » 
Programmes HP48 et HP28S HEX 64 STWS “nombre d'octets 7?" un 
Q@ tereeesnnnnes Jp 4g eesssssensee D evene FIP2BG vesess 
Par rapport aux méthodes habituelles sur HP48,notre INPUT @@ 1 SF 3 PICK EVAL 





méthode effectuant un calcul local du checksum en  @***"*""+##e#e+eseese Hp 48 ct HP-28S **vessesreuses 
fin de chaque ligne permet de faciliter la recherche 1 CF STR+ 2 * 16 DUP2 / IP 3 ROLLD MOD 





d'erreurs, par rapport à une même recherche dans  DUP2 0 > + SWAP 1 + # Oh "" 1 5 ROLL 
une chaîne de plusieurs centaines d’octets. FOR i 
DO ‘Ligne " i 1 - R-B # 1000h + -STR 4 6 SUB + DUP 
Par mesure de sécurité sauvegardez vos programmes " @ NEWLINE 
et fichiers, éventuellement verrouillez vos cartes. codes 2n"# Me secs ns “7PIK i< 
Tapez le programme correspondant à votre machine: IF THEN 6 PICK DUP 4 / IP + 1 SWAP OVER - SUB END 
- ASSCOD48 pour HP-48 ou ASSCOD28 pour HP-28S 1 FS?C IF THEN DROP2 SWAP 
(attention aux parties distinctes HP-48 ou HP-28S) Q@eésteseseres Hp resserre Hp20S #r4ntr 
cela avec la plus grande attention car un mauvais OVER “ a corriger" + @@ 
fonctionnement peut entraîner un désordre fatal pour € -1 3 ROT + INPUT @@ CLMF HALT 
les objets contenus dans votre machine. La @**"*++#e#sees22+ Hp 48 et HP-28S **®esseureunensenses 
commande SPEED (JPC-85 page 12) peut être incluse ELSE 8 PICK EVAL END DUP 
au début de ASSCOD28. NEWLINE (-) s'obtient sur WHILE DUP # POS DUP 
HP-48 par [flèche bleue] puis [.]. REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 25 SUB + 
END DROP O OVER SIZE 1 SWAP 
Pour tout assemblage de chaîne de codes procédez de FOR j OVER j DUP SUB NUM j * + NEXT 
manière suivante : 6 PICK + DUP # FFFh AND 
un @ NEWLINE 
1- lancez le programme ASSCOD48 ou ASSCOD28 somme de controle 2 6 ROLL SWAP + 
2- donnez le nombre d’octets (1/2 octet compris) puis 11 PICK EVAL M4 SUAP + STR+ == 
validez avec ENTER. IF THEN 1 ELSE DROP2 1000 1 BEEP 1 SF O END 
3- tapez chaque ligne de codes après son numéro à 3 UNTIL END ROT 5 ROLL DROP2 3 ROLLD + 
chiffres et sans les espaces puis validez. NEXT 5 ROLLD 4 DROPN 
4- tapez la somme de contrôle sm, validez. S'il y a (@°* HP" @QQ" ts esssesses TP 29S eecesaaneteses 
erreur la ligne de codes sera demandée à nouveau.  "GROB 8 “ OVER @@ "“ SUAP 1 OVER SIZE 


Pour HP-28 l'appui sur EDIT fera apparaître la ligne SIZE 2/""+ @G@ FOR j DUP j DUP 15 + SUB "#" 
des codes qui pourra être corrigée, ensuite relancez + SWAP + STR+ @@ OVER SIZE 1 


avec CONT. # 4017h SYSEVAL @@ FOR i OVER i DUP SUB + -1 STEP 
5- lorsque l’objet apparaîtra sur la pile stockez le dans  # 6289Ch @@ SWAP DROP STR-+ ROT SWAP 

la variable donnée en tête. SYSEVAL NEUOB @@ # 3B82h SYSEVAL SWAP 16 

Nota: des versions ASSCODxx plus performantes  SWAP STOF » @@ STEP DROP # 20238h SYSEVAL 
(System Rpl et Assembleur) existent dans JPC @@ # 4F3Dh SYSEVAL SWAP STOF CLMF » 
numéro 95. 
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SYSRCL 
# AFC2h 


0123 


000: 76c2 


001: 1270 


FRE 


# 7B76h 


0123 


000: 7602 


001: D211 


CRENAME 


# 6631h 


0123 


000: 76c2 


001: c170 


B-SB 


# 0837h 


0123 


000: 76c2 


001: 1270 


SB-B 


# 0858h 


0123 


000: 76c2 


001: CE13 


PRG 


# 2158h 


0123 


000: 76c2 


001: 8170 


002: 1200 


003: 2083 
004: 0625 





4567 


01E3 
8320 


4567 


o1c8 
2801 


4567 


013 
DE&é 


4567 


O1E3 
DA34 


4567 


01E3 
09F2 


4567 


01E3 
76c2 
8811 
5co8 
co09 
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CHP28) 
15 octets 


89AB CDEF sm 


CO5A 7C07 E08 


209F 20 381 


CHP28) 


15 octets 


89AB CDEF sm 


4001 6C0E  D77 


109F 20 3A2 


CHP28) 


15 octets 


89AB CDEF sm 


COSA 7C07  E08 


009F 20 485 


CHP28) 


15 octets 


89AB CDEF sm 


COSA 7C07 E08 
009F 20 456 


CHP28) 

12.5 octets 
89AB CDEF sm 
co01 6C03 Cc4 
0 660 
CHP28) 

40 octets 

89AB CDEF sm 


COSA 7C03 DC8 
0296 7048  A23 
3ACD 3760 916 
EE30 09F2  78D 
F200 9F20 478 


PARSE 
# F13Fh 


0123 


000: 76C2 
001: c170 
002: 9C00 


R-SB 
# 31A2h 


0123 


000: 76c2 
001: 8170 


SB-R 
# F8CBh 


0123 


000: 76c2 
001: 9F20 


COMPIL28 
# 9FC9h 


0123 


000: 76C2 
001: F170 
002: C20E 
003: 4710 
004: 1013 
005: D713 
006: 0340 
007: 818F 
008: 5E52 
009: 2015 
O0A: 7632 
008: 1641 
O0: 2D41 
00D: F50C 
00E: 4016 
00F: 710A 
010: 1690 
011: 311A 
012: 109F 


4567 


01E3 
76c2 
9F20 


4567 


01E3 
B35C 


4567 


01E3 


4567 


O1E3 
7602 
D000 
8134 
1136 
0174 
D9EO 
8417 
1AF2 
B090 
1c41 
7F17 
1158 
8605 
4110 
1371 
2081 
1451 
2009 


89A8 
CO5A 


07FA 
09F2 


89AB 


CO5A 
009F 


89A8 


co01 


CHP28) 


22.5 octets 
CDEF sm 
7C07 E08 
EO4F D3F 
0 0A 

CHP28) 

15 octets 

CDEF sm 
7C03 DC8 
20 44D 
CHP28) 

10 octets 

CDEF sm 
6co0 c% 
EAF 

CHP28) 


149.5 octets 


8948 


CO5A 
0D3F 
8F18 
8F49 
E281 
1641 
BA6E 
4CF5 
2833 
cc21 
4318 
4818 
0160 
0184 
1311 
0980 
0001 
3180 
F20 


CDEF 


7C09 
4069 
0501 
E201 
BFA9 
4384 
0850 
9080 
C45A 
5379 
E140 
FBFS 
170€ 
1431 
7414 
ATSE 
1113 
CES2 


sm 


E28 
BCO 
7F4 
LES 
325 
ECO 
céA 
B52 
gc2 
6E3 
32A 
240 
E53 
9c7 
&AT 
37C 
E66 
céF 
A6F 


COMPIL48 
# 5C33h 


0123 


000: D9p2 
001: 3040 
002: D209 
003: 4710 
004: 1013 
005: D713 
006: 034E 
007: 818F 
008: B0AF 
009: 1580 
O0A: 321C 
008: 417F 
00C: 4111 
00D: O0C86 
00E: 164 
00F: OA8F 
010: 1214 
011: 0821 


MANDELGT 
# EAA7h 


0123 


000: D9D2 
001: 2200 
002: D20E 
003: 058 
004: 2178 
005: 029A 
006: 0000 
007: 2130 
008: 130E 
009: 4532 
O0A: 6E8F 
008: A815 
00C: 2D50 
00D: FO6E 
00E: 50AD 
00F: 149F 
010: ccD2 
011: 3131 
012: 0142 
013: 2480 
014: E061 
015: 1537 
016: 17F3 
017: 5A71 
018: 7872 
019: CFA7 
OA: FÎCF 
018: 3827 


4567 


0D29 
D9D2 
E000 
8134 
1136 
0174 
1632 
8417 
2283 
90cc 
4143 
1748 
5801 
0501 
1013 
1766 
1803 
30 


4567 


OOFE 
D9D2 
9056 
9A28 
A28D 
29F3 
0322 
9F34 
9016 
230C 
6043 
0A81 
c121 
8F60 
B464 
21CF 
o2c1 
1897 
1301 
FSAF 
7831 
AFBA 
1E1A 
A6F5 
1557 
0101 
1c13 
O7AE 


89AB 


5109 
0756 
8FB9 
8F91 
E281 
1641 
BA6E 
4CFS 
LE25 
2153 
18E1 
18FB 
6017 
8414 
1174 
1111 
4150 


89A8 


8111 
079E 
FBD8 
8130 
A16D 
45E4 
3008 
5322 
0094 
2050 
216€ 
5032 
6E8F 
A815 
2D46 
1462 
008F 
F101 
éF16 
7179 
F314 
70A6 
E715 
9F17 
17F1 
1081 
1281 
7061 


CHP4B) 

139 octets 
CDEF sm 
F81F F34 
é0cc  D59 
7601 A93 
0301 658 
BFA9 498 
4384 033 
0850 D52 
6066 815 
A120 825 
7976 549 
4016 150 
F52D  OBF 
OCF5  DDé 
3140 8EE 
1471  3FD 
1311  F18 
B213 833 
F60 

CHP48) 

363 octets 
CDEF sm 
9201 c36 
60D9 AA 
1262 866 
4B2A 623 
9D20 495 
A206 230 
E35B F79 
3082 BBA 
29F3 93A 
A321 5D3 
8F60 3F0 
230C 028 
6088 F40 
OA81 CB8 
F851 AB3 
SOF4 B4A 
c152 580 
4213 195 
3AF2 F2E 
147C D63 
D173 A84 
E59F A4D 
7TAF 9A2 
F157 810 
5371 487 
OA1C 13D 
4DAA  FD8 
0371 C1A 

















© —— ———_————— 
o1C: 8010 4112 77A0 11CA 968 021: 1860 O4AE B808 A063 A2E 01C: 3511 8A70 1011 0810 29F 
010: 729F 7331 1CB7 A118 713 022: 5721 1C87 A118 A7A1 854 O1D: AICF 1CF1 C131 2814 F97 
O1E: A7A1 22A7 4118 7680 3E6 023: 22A7 4118 77D0 119A 5ED 01E: DAA3 B270 7AE7 0610  CAA 
01F: 119A 7AA6 F51C 1562 TAC 024: 7AA6 F5FA 1562 OE2F  4C8 O1F: 37AE 1104 1127 OE11 BAF 
020: OE2F 1542 A275 8016 E10 025: 1542 A275 8016 0B27 146 020: 1CA7 29F7 D611 CB7A  82A 
021: 0B27 14FA 6E42 214D CO05 026: 14FA 6E42 214D 1711  DE3 021: 118A 7A12 2A74 1187  57B 
022: 1711 1015 77A7 2108 808 027: 1015 77A7 2108 10A1 AOF 022: F811 19A7 AA6F 51C3  44F 
023: 10A1 111C 16A7 F161 557 028: 111C 1686 F161 1C11  6C6 023: 4088 00D5 1562 OE2F  1F8 
024: 1011 4FA6 E402 14D1 2C2 029: 4FA6 E4E2 14D1 7317 402 024: 1542 1321 30C0 1321 D15 
025: 7317 F111 1577 B7A1 028 O2A: F8FC EE10 808B F351 23F 025: 5620 E2F1 5421 32C0 99A 
026: 7F15 776E 2F07 8034 E40 028: 1115 7787 A17F 1577 000 026: 1321 5620 E2F1 5421  5EC 
027: 150A F684 2948 80BF CC7 O2C: 6E0F 8619 3132 130D C78 027: 305F 4AEB 808A OF21 441 
028: 8852 94A3 1BFA 8728 B2D 020: 2310 1073 144D 5E01  9DD 028: 5620 E2F1 5421 3213 FE8 
029: 0852 5508 42AF 1AFC ABB 02€: 3131 0114 8148 1611 554 029: 0340 8800 CA13 2156 C29 
O2A: 8228 1E83 250A 70A7  81A O02F: 71A6 ESOF 133C F5FD 579 O2A: 20E2 F154 2130 AEBB A77 
028: 597E CE8F SE5D 0862 6EF 030: 078F 5E01 083 4150 1F3 028: O8A1 E015 620E 2F15 7C9 
O2C: 00BF 8015 6621 8213 320 031: AF68 4294 8808 F885 027 O2C: 42A2 7580 160B 2714 3ED 
02D: 0821 30 75A 032: 294A 31BF A872 8085  DCC O2D: FA6E 4221 4D17 1110 FB6 
033: 2550 842A FIAF C822 C75 02€: 1577 A721 0810 A111 B6C 
034: 81E8 3250 A7OA 7597 SDF O2F: 1C16 3FE1 611C 114F 942 
MAND3CSI CHP48) 035: ECE8 F5E5 D086 200B 7CE 030: AGE4 E214 D173 17F8 732 
# 422Ch 441.5 octets 036: F801 5662 1821 30B2 423 031: FCEE 1080 8BFC 1111  4CA 
037: 130 54A 032: 1577 B7A1 7F15 7769 292 
0123 4567 89AB CDEF sm 033: 9E87 1606 790D 2310 EAE 
034: 1D73 4088 O0D5 31D1  B8D 
000: D9D2 O0FE 8111 9201  C36 MAND4CSI CHP48) 035: 1321 3106 3444 OO0E 752 
001: 2200 D9D2 079E 60D9 AA # 5B1Fh 545 octets 036: A130 DB06 14E1 4D13 490 
002: D20E 9056 FBD8 1262 866 037: 2130 C013 214E 1301 033 
003: 05CB 9A28 8130 4B2A 623 0123 4567 89AB CDEF sm 038: 3313 1C01 3314 D131 COD 
004: 2178 A28D A16D 9D20 495 039: 1321 30C0 C013 214E 8C0 
005: 029A 29F3 45E4 A206 230 000: D9D2 OOFE 8111 9201 C36 03A: 1301 3313 1C0C 0133  4A1 
006: 0000 0322 300B E35B F79 001: 2200 D9D2 079E 60D9 AA 038: 14D1 3116 1171 O7A6  0E3 
007: 2130 9F34 5322 30B2 BBA 002: D20E 9056 FBDB 1262 866 03C: E54A 1320 7A6E 5980 E55 
008: 1309 9016 EBF6 OC2D  A78 003: 05C8 9A28 8130 4B2A 623 03D: 78F5 E010 8D34 150A B76 
009: 5001 216E 8F60 C121 785 004: 2178 A28D A16D 9D20 495 O03E: F684 2948 80BF 8852 935 
O0A: 6E8F 60A8 150A 8150 472 005: O029A 29F3 45E4 A206 230 03F: 94A3 1BFA 8728 0852 677 
008: 5923 OC2D 5001 216E 217 006: 0000 0322 300B E35B F79 040: 5508 42AF TAFC 8228 518 
00c: 8F60 BBFO 6E8F 60A8 172 007: 2130 9F34 5322 3082 BBA 041: 1E83 250A 70A7 597E  35D 
00D: 150A 8150 ADB4 642D FCD 008: 130E 9016 009A 29F3  93A 042: CEBF 5E5D 0862 O0BF  1FC 
O0E: 46F8 5114 9F21 CF14 DCE 009: 4532 230C 2D50 A321 5D3 043: 8015 6621 B213 0B21 EO02 
00F: 6250 F4CC D209 6200  AAB O0A: 6E8F 60A3 216E 8F60  3F0 064: 30 E95 
010: 8FC1 5238 F511 1013 66E 008: A815 0A81 5032 230C 028 
011: 1189 7F10 1421 3014 102 O0C: 2D50 C121 6E8F 60BB  F40 
012: 2130 16F1 63AF 2248 F23 000: FO6E 8F60 A815 OA81  CB8 D4COLOR CHP48) 
013: OF5SA F717 9157 7089  C42 O0E: 508D D464 2D46 F851  AA2 # D219)h 153 octets 
014: 4A80 850B FABF 706D  B98 00F: 149F 21CF 1462 50F4 839 
015: OCEO 6178 31F3 14D1 921 010: CCD2 0E23 O08F C152 5AA 0123 4567 89AB CDEF sm 
016: 3710 8137 1731 537A 590 011: 38F5 1110 1311 897F 314 
017: F8A7 OAGE 59F1 7F31  40E 012: 1014 2130 1421 3016  DB6 000: D9D2 O0D29 5128 F817 DEA 
018: ETAE 7157 ZAF5 A7IA 325 013: F163 AF22 480F 5AF7  CC8 001: 6040 D9D2 OFC2 E4CC EOD 
019: 6F59 F17F 1577 B721 085 014: 1791 5770 E061 7B31 A21 002: D205 0100 8FC1 5238 ACA 
GiA: 5571 7F15 371C F97C FB8 015: F314 D137 1081 3717 5FC 003: F511 1013 0169 8401  5FD 
018: c185 1128 1370 6310  ACD 016: 3153 7AF8 A7OA 6E59  4F9 004: 4234 0800 0886 5085 235 
o1C: 214D 0713 5118 A701  6E7 017: F17F 31E1 AE71 577A  38E 005: 0169 132D 8320 88CA 033 
01D: 0110 810A 1CF1 CFIC 651 018: F5A7 1A6F 59F1 7F15 235 006: c2D7 1800 1001 5648  BF9 
O1E: 1312 814D AA3B 2707  3F5 019: 7787 2155 717F 1537 F05 007: 0860 5130 C15C 0195 884 
01F: AE70 6103 7411 1041 ED8 O1A: 1CF8 4197 CC18 5112 BF1 008: 2D2C E154 31F0 2100 471 
020: 127A 0111 CA72 9F34  C9B 018: 8137 0631 0214 DO71 7AD 009: 1992 D973 70D6 7D60  23A 
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00A: 8600 1320 OBA3 E5CF 
008: 480D 8745 OBFC EE10 
O0C: 808A FFC1 9001 5443 
000: 4855 071F 97F1 0143 





0F6 
00€ 
cB3 
96E 





00E: 1FE0 5078 A290 1FD8 7E1 012: O8A1 7F01 8213 0821 
00F: 6081 5F71 9021 5C78 500 013: 30 

010: F5EO 1080 3415 0145 0E0 

011: 15E0 808B 17F1 5E08 ECE 


853 
BE6 
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